method cvs_tags_file file =
      try Ocvs_commands.tags_file file
      with CvsFailure s -> raise (Failure s)