method cvs_status_dir dir =
      try
        let cvs_info_list = Ocvs_commands.status_dir dir in
        List.iter (fun ci -> data#update_element (data#t_of_cvs_info ci)) cvs_info_list
      with
        CvsFailure s
      |        CvsPartFailure s ->
          raise (Failure s)