method cvs_diff_file ?rev ?rev2 file =
      try Ocvs_commands.diff_file ?rev ?rev2 file
      with CvsFailure s -> raise (Failure s)