anchor.diff:  -spec last_msg_sent(state()) -> [msg_or_tag()].
   last_msg_sent(State) -> element(19, State).
   -spec set_last_msg_sent(state(), [msg_or_tag()]) -> state().
  -set_last_msg_sent(State, Msg) ->
  +set_last_msg_sent(State, MsgList) ->
  +    MsgListLen = length(MsgList),
       OldList = last_msg_sent(State),
  -    NumToKeep = erlang:max(?NUM_KEEP - length(Msg), 0),
  -    NewList = Msg ++ lists:sublist(OldList, NumToKeep),
  +    NewList = case erlang:max(?NUM_KEEP - MsgListLen, 0) of
  +                  0         -> MsgList;
  +                  NumToKeep -> MsgList ++ lists:sublist(OldList, NumToKeep)
  +              end,
       State2 = set_time_last_msg_seen(State),
  -    State3 = inc_s_msg_count(State2, length(Msg)),
  +    State3 = inc_s_msg_count(State2, MsgListLen),
       setelement(19, State3, NewList).
   
   -spec last_msg_received(state()) -> [msg_or_tag()].
   last_msg_received(State) -> element(20, State).
   -spec set_last_msg_received(state(), [msg_or_tag()]) -> state().
  -set_last_msg_received(State, Msg) ->
  +set_last_msg_received(State, MsgList) ->
  +    MsgListLen = length(MsgList),
       OldList = last_msg_received(State),
  -    NumToKeep = erlang:max(?NUM_KEEP - length(Msg), 0),
  -    NewList = Msg ++ lists:sublist(OldList, NumToKeep),
  +    NewList = case erlang:max(?NUM_KEEP - MsgListLen, 0) of
  +                  0         -> MsgList;
  +                  NumToKeep -> MsgList ++ lists:sublist(OldList, NumToKeep)
  +              end,
       State2 = set_time_last_msg_received(State),
  -    State3 = inc_r_msg_count(State2, length(Msg)),
  +    State3 = inc_r_msg_count(State2, MsgListLen),
       setelement(20, State3, NewList).
   
   -spec save_n_msgs(comm:message() | [{any(), comm:message()}],
  
positive.code:                    last_stat_report/1, set_last_stat_report/2]}).
  
  -include("scalaris.hrl").
  
  -export([start_link/6, init/1, on/2]).
  
  
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",
  