anchor.diff:  	    Reply = {ok, [{gen, Gen}, {trans, [TcpStats, UdpStats]}]},
   	    i("loop(stats2) -> send reply"),
   	    server_reply(Parent, {statistics_reply, 2}, Reply),
  +	    i("loop(stats2) -> done"),
   	    loop(evs(S, {stats, 2}));
   
   
   	%% Megaco callback messages
   	{request, Request, From} ->
  -	    d("loop -> received megaco request from ~p:"
  +	    d("loop(request) -> received megaco request from ~p:"
                 "~n      ~p", [From, Request]),
   	    {Reply, S1} = handle_megaco_request(Request, S),
  -	    d("loop -> send request reply: ~n~p", [Reply]),
  +	    d("loop(request) -> send reply: ~n~p", [Reply]),
   	    reply(From, Reply),
  +	    d("loop(request) -> done"),
   	    loop(evs(S1, {req, Request}));
   
   
  
positive.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),
  	    loop(evs(S, {stats, 1}));
  
  
  
negative.code: 
  
  evs(#mgc{evs = EVS} = S, Ev) when (length(EVS) < ?EVS_MAX) ->
      echo_evs(S#mgc{evs = [{?FTS(), Ev}|EVS]});
  evs(#mgc{evs = EVS} = S, Ev) ->
      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): "
  