anchor.diff:          [] -> ok;
           Other -> {error, {copy_failed, Other}}
       end.
  +
  +leave_cluster([Node | Rest]) when is_atom(Node) ->
  +    case rpc:call(Node, mnesia, del_table_copy, [schema, node()]) of
  +        {atomic, ok} ->
  +            ok;
  +        {aborted, Reason} ->
  +            case Rest of
  +                [] -> {error, Reason};
  +                _ -> leave_cluster(Rest)
  +            end
  +    end.
  
positive.code: -module(lmq_console).
  
  -export([join/1, add_new_node/1]).
  
  join([NodeStr]) when is_list(NodeStr) ->
      Node = list_to_atom(NodeStr),
  
negative.code:         pang ->
              {error, not_reachable}
      end.
  
  leave([]) ->
      RunningNodes = [Node || Node <- mnesia:system_info(running_db_nodes),
                               Node =/= node()],
      ok = application:stop(mnesia),
      R = leave_cluster(RunningNodes),
      ok = application:start(mnesia),
      R.
  
  delete_local_schema() ->
      ok = application:stop(mnesia),
  