anchor.diff:  %%% ---------------------------------------------------------------------------
   
   info(SvcName, Item) ->
  -    case ets:lookup(?STATE_TABLE, SvcName) of
  -        [] ->
  -            undefined;
  -        [S] ->
  -            service_info(Item, S)
  +    case find_state(SvcName) of
  +        #state{} = S ->
  +            service_info(Item, S);
  +        false ->
  +            undefined
       end.
   
   %%% ---------------------------------------------------------------------------
  
positive.code:     [{TPid, _}, [{origin_host, {_, OH}} | _]]
          = [proplists:get_value(K, Peer) || K <- [peer, caps]],
      {dict:append(OH, Peer, PeerD), dict:append(OH, TPid, RefD)}.
  
negative.code: -define(ALL_INFO, [capabilities,
                     applications,
                     transport,
                     pending,
                     options]).
  
  %% The rest.
  -define(OTHER_INFO, [connections,
  