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))