anchor.diff:          capabilities -> service_info(?CAP_INFO, S);
           applications -> info_apps(S);
           transport    -> info_transport(S);
  +        options      -> info_options(S);
           pending      -> info_pending(S);
           keys         -> ?ALL_INFO ++ ?CAP_INFO ++ ?OTHER_INFO;
           all          -> service_info(?ALL_INFO, S);
  
positive.code: %%% ---------------------------------------------------------------------------
  
  info(SvcName, Item) ->
      case ets:lookup(?STATE_TABLE, SvcName) of
          [] ->
              undefined;
          [S] ->
              service_info(Item, S)
      end.
  
  %%% ---------------------------------------------------------------------------
  
negative.code:     [{TPid, _}, [{origin_host, {_, OH}} | _]]
          = [proplists:get_value(K, Peer) || K <- [peer, caps]],
      {dict:append(OH, Peer, PeerD), dict:append(OH, TPid, RefD)}.
  
  %% info_options/1
  
  info_options(S) ->
      S#state.options.
  