anchor.diff:  			{N, length(hd(Stack))}
   		end
   	end,
  -     io:format(Dump, "~s~p.~n", [lists:duplicate(Depth, "  "), parsify(Term)]),
  +     io:format(Dump, "~s~tp.~n", [lists:duplicate(Depth, "  "), parsify(Term)]),
       true.
   
   dump(undefined, _) ->
       false;
   dump(Dump, Term) ->
  -    io:format(Dump, "~p.~n", [parsify(Term)]),
  +    io:format(Dump, "~tp.~n", [parsify(Term)]),
       true.
   
   
  
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:     ok;
  info_suspect_call(GroupLeader, _, Func, Pid) ->
      io:format(GroupLeader,
  	      "~nWarning: ~tp called in ~p - trace may become corrupt!~n",
  	      parsify([Func, Pid])).
  
  info(GroupLeader, GroupLeader, _, _) ->
  