let status_files files =
  let rec iter acc l =
    match l with
      [] -> acc
    | file :: q ->
        try
          let i = status_file file in
          iter (i :: acc) q
        with
          CvsFailure s ->
            prerr_endline s;
            iter acc q
  in
  List.rev (iter [] files)