method cvs_revisions_file file = try Ocvs_commands.revisions_file file with CvsFailure s -> raise (Failure s)