anchor.diff:              case inet:peername(Socket) of
                   {ok, {PeerAddress, PeerPort}} -> ok;
                   {error, _Reason2}              -> PeerAddress = PeerPort = "n/a"
  +            end,
  +            case inet:getstat(Socket, [recv_avg, recv_cnt, recv_oct,
  +                                       send_avg, send_cnt, send_oct]) of
  +                {ok, [{recv_avg, RcvAgv}, {recv_cnt, RcvCnt}, {recv_oct, RcvBytes},
  +                      {send_avg, SendAgv}, {send_cnt, SendCnt}, {send_oct, SendBytes}]} -> ok;
  +                {error, _Reason} ->
  +                    RcvAgv = RcvCnt = RcvBytes = "n/a",
  +                    SendAgv = SendCnt = SendBytes = "n/a"
               end
       end,
       KeyValueList =
  
positive.code:           lists:flatten(io_lib:format("~p", [Runtime]))},
           {"sent_tcp_messages",
            lists:flatten(io_lib:format("~p", [s_msg_count(State)]))},
           {"~ sent messages/s",
            lists:flatten(io_lib:format("~p", [SentPerS]))},
           {"received_tcp_messages",
            lists:flatten(io_lib:format("~p", [r_msg_count(State)]))},
           {"~ received messages/s",
            lists:flatten(io_lib:format("~p", [ReceivedPerS]))}
          ],
      comm:send_local(Requestor, {web_debug_info_reply, KeyValueList}),
      send_bundle_if_ready(State);
  
negative.code:         notconnected ->
              MyAddress = MyPort = "n/a",
              PeerAddress = PeerPort = "n/a",
              RcvAgv = RcvCnt = RcvBytes = "n/a",
              SendAgv = SendCnt = SendBytes = "n/a",
              ok;
          Socket ->
              case inet:sockname(Socket) of
  