anchor.diff:                    pong = net_adm:ping(Node),
                     DPrt = dport(Node),
                     Bad1 = case WhereToPutSelf of
  -                             0 -> 
  +                             0 ->
                                    Bad;
                                N when N > 0 ->
                                    setelement(N,Bad,self())
  
positive.code:          lost_exit/1, link_to_dead/1, link_to_dead_new_node/1,
           applied_monitor_node/1, ref_port_roundtrip/1, nil_roundtrip/1,
           trap_bif_1/1, trap_bif_2/1, trap_bif_3/1,
           stop_dist/1, 
           dist_auto_connect_never/1, dist_auto_connect_once/1,
           dist_parallel_send/1,
           atom_roundtrip/1,
  
negative.code: start_relay_node(Node, Args) ->
      Pa = filename:dirname(code:which(?MODULE)),
      Cookie = "NOT"++atom_to_list(erlang:get_cookie()),
      {ok, LSock} = gen_tcp:listen(0, [binary, {packet, 4}, {active, false}]),
      {ok, Port} = inet:port(LSock),
      {ok, Host} = inet:gethostname(),
      RunArg = "-run " ++ atom_to_list(?MODULE) ++ " inet_rpc_server " ++
      Host ++ " " ++ integer_to_list(Port),
      {ok, NN} = test_server:start_node(Node, peer,
                                        [{args, Args ++
                                          " -setcookie "++Cookie++" -pa "++Pa++" "++
                                          RunArg}]),
      [N,H] = string:tokens(atom_to_list(NN),"@"),
      {ok, Sock} = gen_tcp:accept(LSock),
      pang = net_adm:ping(NN),
  