anchor.diff:  
   
   evs(#mgc{evs = EVS} = S, Ev) when (length(EVS) < ?EVS_MAX) ->
  -    S#mgc{evs = [{?FTS(), Ev}|EVS]};
  +    echo_evs(S#mgc{evs = [{?FTS(), Ev}|EVS]});
   evs(#mgc{evs = EVS} = S, Ev) ->
  -    S#mgc{evs = [{?FTS(), Ev}|lists:droplast(EVS)]}.
  +    echo_evs(S#mgc{evs = [{?FTS(), Ev}|lists:droplast(EVS)]}).
  +
  +echo_evs(#mgc{evs = EVS} = S) ->
  +    i("Events: "
  +      "~n      ~p", [EVS]),
  +    S.
   
   done(#mgc{evs = EVS}, Reason) ->
       info_msg("Exiting with latest event(s): "
  
positive.code: 	    {ok, Gen} = megaco:get_stats(),
  	    i("loop(stats1) -> gen stats: "
                "~n      ~p", [Gen]),
  	    GetTrans = 
  		fun(CH) ->
                          i("loop(stats1):GetTrans -> "
                            "get stats for connection ~p", [CH]),
  
negative.code:                           "~n      ~p", [Stats]),
  			{SendHandle, Stats}
  		end,
  	    Mid   = S#mgc.mid,
  	    Trans = lists:map(GetTrans, megaco:user_info(Mid, connections)),
  	    Reply = {ok, [{gen, Gen}, {trans, Trans}]},
  	    i("loop(stats1) -> send reply"),
  	    server_reply(Parent, {statistics_reply, 1}, Reply),
  	    i("loop(stats1) -> done"),
  	    loop(evs(S, {stats, 1}));
  
  
  