anchor.diff:                     last_stat_report/1, set_last_stat_report/2]}).
   
   -include("scalaris.hrl").
  +
  +-ifdef(KEEP_TAG).
  +    -define(GET_MSG_OR_TAG(Msg), comm:get_msg_tag(Msg)).
  +    -define(PRETTY_PRINT_MSG(Tag), util:extint2atom(Tag)).
  +-else.
  +    -define(GET_MSG_OR_TAG(Msg), Msg).
  +    -define(PRETTY_PRINT_MSG(Msg), setelement(1, Msg, util:extint2atom(element(1, Msg)))).
  +-endif.
   
   -export([start_link/6, init/1, on/2]).
   
  
positive.code: save_n_msgs(Msg, SaveFun, State) when is_tuple(Msg) ->
      save_n_msgs([{single, Msg}], SaveFun, State);
  save_n_msgs(Msgs, SaveFun, State) when is_list(Msgs) ->
      NumElements = erlang:min(?NUM_KEEP, length(Msgs)),
      List = [get_msg_tag(M) || M <- lists:sublist(Msgs, NumElements)],
      SaveFun(State, List).
  
  -ifdef(KEEP_TAG).
      -define(GET_MSG_OR_TAG(Msg), util:extint2atom(comm:get_msg_tag(Msg))).
  -else.
      -define(GET_MSG_OR_TAG(Msg), setelement(1, Msg, util:extint2atom(element(1, Msg)))).
  -endif.
  
  -spec get_msg_tag({any(), comm:message()}) -> msg_or_tag().
  get_msg_tag(Msg) ->
  
negative.code:                     SendAgv = SendCnt = SendBytes = "n/a"
              end
      end,
      LastMsgsSent = [?PRETTY_PRINT_MSG(X) || X <- last_msg_sent(State)],
      LastMsgsReceived = [?PRETTY_PRINT_MSG(X) || X <- last_msg_received(State)],
      KeyValueList =
          [
           {"status",
  