anchor.diff:      receive
   	{Kernel,{accept_pending,Ret}} ->
   	    ?trace("do_mark_pending(~p,~p,~p,~p) -> ~p~n",
  -		   [Kernel,Node,Address,Flags,Ret]),
  +		   [Kernel, MyNode, Node, Flags, Ret]),
   	    Ret
       end.
   
  
positive.code:     <<Creation:32>> = <<Cr3,Cr2,Cr1,Cr0>>,
      <<NameLen:16>> = <<NL1,NL0>>,
      {Name, _Residue} = lists:split(NameLen, Rest),
      ?trace("recv_name: 'N' node=~p creation=~w\n", [Node, Creation]),
      case is_name_ok(Name, Flags) of
          true ->
              check_allowed(HSData, Name),
  
negative.code:                      other_creation = Creation,
  		    f_send = FSend},
              named) ->
      ?debug({dist_util, self(), send_status, Node}),
      NameBin = atom_to_binary(Node, utf8),
      NameLen = byte_size(NameBin),
      case FSend(Socket, [$s, "named:",
  