let rec get_cvs_files dir =
  let files = List.map (fun ci  -> ci.cvs_file) (status_dir dir) in
  let subdirs = List.map (Filename.concat dir) (Ocvs_misc.get_cvs_directories dir) in
  List.iter prerr_endline subdirs;
  let ll = List.map get_cvs_files subdirs in
  List.flatten (files :: ll)