anchor.diff:              ok
       end.
   
  -format_args(Args) ->
  -    string:join([io_lib:format("~p", [Arg]) || Arg <- Args], ", ").
  +format_args(Arity) when is_integer(Arity) ->
  +    "/"++integer_to_list(Arity);
  +format_args(Args) when is_list(Args) ->
  +    "("++string:join([io_lib:format("~p", [Arg]) || Arg <- Args], ", ")++")".
   
   %% Borrowed from dbg
   fun_to_ms(ShellFun) when is_function(ShellFun) ->
  
positive.code:             {"~p:~p/~p ~p ~p", [M,F,Arity, Class, Val]};
          %% {trace, Pid, spawn, Spawned, {M, F, Args}}
          {spawn, [Spawned, {M,F,Args}]}  ->
              {"spawned ~p as ~p:~p(~s)", [Spawned, M, F, format_args(Args)]};
          %% {trace, Pid, exit, Reason}
          {exit, [Reason]} ->
              {"EXIT ~p", [Reason]};
  
negative.code:             {" > (non_existent) ~p: ~p", [To, Msg]};
          %% {trace, Pid, call, {M, F, Args}}
          {call, [{M,F,Args}]} ->
              {"~p:~p~s", [M,F,format_args(Args)]};
          %% {trace, Pid, return_to, {M, F, Arity}}
          {return_to, [{M,F,Arity}]} ->
              {"~p:~p/~p", [M,F,Arity]};
  