method private revisions_file file = let f () = let filename = file.Ocvs_types.cvs_file in let revs = cvs#cvs_revisions_file filename in revs in handle_error f () []