method cvs_tag_files f_confirm tag files =
      try Ocvs_commands.tag_files f_confirm tag files
      with
        CvsFailure s -> raise (Failure s)
      |        Tag_error n -> raise (Failure (Ocvs_messages.error_tag_char tag n))