anchor.diff:      ok;
   info_suspect_call(GroupLeader, _, Func, Pid) ->
       io:format(GroupLeader,
  -	      "~nWarning: ~p called in ~p - trace may become corrupt!~n",
  +	      "~nWarning: ~tp called in ~p - trace may become corrupt!~n",
   	      parsify([Func, Pid])).
   
   info(GroupLeader, GroupLeader, _, _) ->
  
positive.code: println({Io, _}, Head,
  	[],
  	Tail, Comment) ->
      io:format(Io, "~s~s~s~n",
  	      [pad(Head, $ , 3), Tail, Comment]);
  println({Io, _}, Head,
  	{Tag, Term},
  	Tail, Comment) ->
      io:format(Io, "~s~p, ~p~s~s~n",
  	      [pad(Head, $ , 3), parsify(Tag), parsify(Term), Tail, Comment]);
  println({Io, _}, Head,
  	Term,
  	Tail, Comment) ->
      io:format(Io, "~s~p~s~s~n",
  	      [pad(Head, $ , 3), parsify(Term), Tail, Comment]).
  
  
  
negative.code: 			{N, length(hd(Stack))}
  		end
  	end,
       io:format(Dump, "~s~tp.~n", [lists:duplicate(Depth, "  "), parsify(Term)]),
      true.
  
  dump(undefined, _) ->
      false;
  dump(Dump, Term) ->
      io:format(Dump, "~tp.~n", [parsify(Term)]),
      true.
  
  
  