anchor.diff:  	    {done, Suspended0, Traces};
   	Other ->
   	    %%% Is this really a good idea?
  -	    io:format(user,"** tracer received garbage: ~p~n", [Other]),
  +            Modifier = modifier(user),
  +	    io:format(user,"** tracer received garbage: ~"++Modifier++"p~n",
  +                      [Other]),
   	    recv_all_traces(Suspended0, Traces, Timeout)
       after Timeout ->
   	    {loop, Suspended0, Traces}
  
positive.code: %%
  %% Actually write the built-in trace patterns too.
  wtp(FileName) ->
      case file:open(FileName,[write]) of
  	{error, Reason} ->
  	    {error, Reason};
  	{ok, File} ->
  	    pt_doforall(fun ({_, Val}, _) when is_list(Val) ->
  				io:format(File, "~p.~n", [Val]);
  			    ({_, _}, _) ->
  				ok
  			end,
  
negative.code: tc_loop(Reader, Handler, HData) when is_function(Reader) ->
      tc_loop(Reader(), Handler, HData);
  tc_loop(Other, _Handler, _HData) ->
      Modifier = modifier(),
      io:format("~p:tc_loop ~"++Modifier++"p~n", [?MODULE, Other]),
      exit({unknown_term_from_reader, Other}).
  
  
  