anchor.diff:  
   handle_custom_message({rt_get_neighbor, From}, State) ->
       MyNode = nodelist:node(rt_loop:get_neighb(State)),
  -    MyId = node:id(MyNode),
  -    PidDHT = node:pidX(MyNode),
  -    PidRT = comm:this(),
  -    comm:send(From, {rt_learn_neighbor, MyId, PidDHT, PidRT}),
  +    comm:send(From, {rt_learn_neighbor, node2mynode(MyNode, comm:this())}),
       State;
   
  -handle_custom_message({rt_learn_neighbor, Id, PidDHT, PidRT}, State) ->
  +handle_custom_message({rt_learn_neighbor, {Id, IdVersion, PidDHT, PidRT}}, State) ->
       OldRT = rt_loop:get_rt(State),
       {NewRT, NewERT} =
           case rt_lookup_node(Id, OldRT) of
  
positive.code:     NewRT = lists:foldl(fun add_sticky_entry/2, FilteredRT, ToBeAddedNodes2),
  
      %% request rt_loop pids of new neighbours with unknown PidRTs
      ToBeAddedNodes3 = lists:filter(fun({_Id, _PidDHT, PidRT}) ->
                                             PidRT =:= none
                                     end, ToBeAddedNodes2),
      lists:foreach(fun(Node) -> comm:send(pid_dht(Node),
  
negative.code:     ToBeAddedNodes1 = sets:subtract(NewNeighbors3, OldNeighbors3),
      %% Add PidRTs to the nodes to be added. There might be PidRTs in the old RT
      %% even for "new" nodes, e.g. for nodes added through get_rt_reply (i.e. for
      %% normal nodes are converted to sticky nodes). Get the VersionIds from the
      %% list of new nodes.
      OldNodes = lists:map(fun rt_entry_node/1, gb_trees:values(get_rt_tree(RT))),
      NewNodes = lists:map(fun(Node) -> {node:id(Node), node:id_version(Node),
                                         node:pidX(Node)}
                           end, NewNeighbors1),
      ToBeAddedNodes2 =
          util:sets_map(fun({Id, PidDHT}) ->
                                PidRT = case lists:keyfind(Id, 1, OldNodes) of
                                    {_Id, _IdVersion, _PidDHT, PidRT0} -> PidRT0;
                                    _else -> none
                                end,
                                {_, IdVersion, _} = lists:keyfind(Id, 1, NewNodes),
                                {Id, IdVersion, PidDHT, PidRT}
                        end, ToBeAddedNodes1),
  
      %% uncomment for debugging
  