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