anchor.diff:      gen_server:reply(From, Res),
       process_q(State#state{connecting = undefined});
   
  +handle_info({check_nodeup, Node}, State) ->
  +    State2 = check_mnesia_down(Node, State),
  +    {noreply, State2};
  +
   handle_info({nodeup, Node}, State) ->
  -    %% Ok, we are connected to yet another Erlang node
  -    %% Let's check if Mnesia is running there in order
  -    %% to detect if the network has been partitioned
  -    %% due to communication failure.
  -
  -    HasDown   = mnesia_recover:has_mnesia_down(Node),
  -    ImRunning = mnesia_lib:is_running(),
  -
  -    if
  -	%% If I'm not running the test will be made later.
  -	HasDown == true, ImRunning == yes ->
  -	    spawn_link(?MODULE, detect_partitioned_network, [self(), Node]);
  -	true ->
  -	    ignore
  -    end,
  -    {noreply, State};
  -
  -handle_info({nodedown, _Node}, State) ->
  -    %% Ignore, we are only caring about nodeup's
  -    {noreply, State};
  +    State2 = remote_node_status(Node, up, State),
  +    State3 = check_mnesia_down(Node, State2),
  +    {noreply, State3};
  +
  +handle_info({nodedown, Node}, State) ->
  +    State2 = remote_node_status(Node, down, State),
  +    {noreply, State2};
   
   handle_info({disk_log, _Node, Log, Info}, State) ->
       case Info of
  
positive.code:     GoingDown = lists:delete(Node, State#state.going_down),
      State2 = State#state{going_down = GoingDown},
      Pending = State#state.pending_negotiators,
      case lists:keysearch(Node, 1, Pending) of
  	{value, {Node, Mon, ReplyTo, Reply}} ->
  	    %% Late reply to remote monitor
  	    link(Mon),  %% link to remote Monitor
  	    gen_server:reply(ReplyTo, Reply),
  	    P2 = lists:keydelete(Node, 1,Pending),
  	    State3 = State2#state{pending_negotiators = P2},
  	    process_q(State3);
  	false ->
  	    %% No pending remote monitors
  	    process_q(State2)
      end;
  
  handle_cast({disconnect, Node}, State) ->
  
negative.code: 
  -record(state, {supervisor, pending_negotiators = [],
  		going_down = [], tm_started = false, early_connects = [],
  		connecting, mq = [], remote_node_status = []}).
  
  -define(current_protocol_version,  {8,1}).
  
  