anchor.diff:      NewState = State#mem{nodes=NewNodes1, clock=NewClock},
       install_new_state(NewState),
       NewState.
  +
  +
  +get_pingnode_state(PingNode) ->
  +    % ping the PingNode and get its state
  +    pong = net_adm:ping(PingNode),
  +    timer:sleep(1000), % let dist. erl get set up... sigh.
  +    {ok, RemoteState} = rpc:call(PingNode, mem3, state, []),
  +    RemoteState.
   
   
   %% @doc handle the gossip messages
  
positive.code:     NodeList1 = lists:delete(node(), NodeList),
      {States1, BadNodes} = rpc:multicall(NodeList1, mem3, state, [], 5000),
      {_Status, States2} = lists:unzip(States1),
      {lists:zip(NodeList1,States2), BadNodes}.
  
  
  %% @doc compare state with states based on vector clock
  
negative.code: 
  handle_join(new, ExtNodes, PingNode, #mem{args=Args} = State) ->
      NewState = case get_test(Args) of
      undefined -> get_pingnode_state(PingNode);
      _ -> State % testing, so meh
      end,
      % now use this info to join the ring
      int_join(ExtNodes, NewState);
  