method cvs_create_and_add_dir dir = try Ocvs_commands.create_and_add_dir dir with CvsFailure s -> raise (Failure s)