let create_and_add_dir dir =
  try
    Unix.mkdir dir 0o755;
    add_dir dir
  with
    Unix.Unix_error (e, s1, s2) ->
      let s = Unix.error_message e in
      raise (Ocvs_types.CvsFailure (Ocvs_messages.error_mkdir dir s))