anchor.diff:  
       %% Verify that '{nodeup, Node}' comes before '{NodeMsg, 1}' (the message
       %% bringing up the connection).
  -    %%?line no_msgs(500), % Why wait? It fails test sometimes  /sverker
  +    ?line no_msgs(500),
       ?line {nodeup, Node} = receive Msg1 -> Msg1 end,
  -    ?line {NodeMsg, 1} = receive Msg2 -> Msg2 end,
  +    ?line {NodeMsg, 1}   = receive Msg2 -> Msg2 end,
  +    % msg stream has begun, kill the node
  +    ?line RemotePid ! {self(), kill_it},
   
       %% Verify that '{nodedown, Node}' comes after the last '{NodeMsg, N}'
       %% message.
  
positive.code:     ?line {ok, Node} = start_node(Name, "", this),
      ?line receive {nodeup, Node} -> ok end,
  
      ?line spawn(Node,
  		fun () ->
  			receive after 1000 -> ok end,
  			lists:foreach(fun (No) ->
  					      Me ! {NodeMsg, No}
  				      end,
  				      Seq),
  			halt()
  		end),
  
  
negative.code: 	{NodeMsg, No} -> flush_node_msgs(NodeMsg, No+1);
  	OtherMsg -> OtherMsg
      end.
  
  node_loop_send(Pid, Msg, No) ->
      Pid ! {Msg, No},
      node_loop_send(Pid, Msg, No + 1).
  
  monitor_nodes_errors(doc) ->
      [];
  