method cvs_tag_dir ?recursive f_confirm tag dir =
      try Ocvs_commands.tag_dir ?recursive f_confirm tag dir
      with
        CvsFailure s -> raise (Failure s)
      |        Tag_error n -> raise (Failure (Ocvs_messages.error_tag_char tag n))