anchor.diff:  tracer(L) ->
       receive 
           %% {save, Term} ->
  -        %%     tracer([{now(),Term} | L]);
  +        %%     tracer([{erlang:timestamp(),Term} | L]);
           {get, From} ->
               From ! {trace, lists:reverse(L)},
               tracer([]);
           stop ->
               exit(normal);
           Term ->
  -            tracer([{now(),Term} | L])
  +            tracer([{erlang:timestamp(),Term} | L])
       end.
   
   stop_tracer() ->
  
positive.code:             ok
      end.
  
  %%-----------------------------------------------------------------
  %% The error_logger handler used for OTP-6931.
  %%-----------------------------------------------------------------
  
negative.code:     end.
  
  msec() ->
      msec(erlang:timestamp()).
  
  msec(T) ->
      element(1,T)*1000000000 + element(2,T)*1000 + element(3,T) div 1000.
  