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 () []