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