method cvs_add_dir dir =
      try Ocvs_commands.add_dir dir
      with CvsFailure s -> raise (Failure s)