anchor.diff:  loop({C,T}=SurviveLinks, Table) ->
       receive
   	{From,i} ->
  -	    reply(From, display_info(lists:map(fun({N,_}) -> N end,get()))),
  +            Modifier = modifier(),
  +            Reply = display_info(lists:map(fun({N,_}) -> N end,get()), Modifier),
  +	    reply(From, Reply),
   	    loop(SurviveLinks, Table);
   	{From,{p,Pid,Flags}} ->
   	    reply(From, trace_process(Pid, Flags)),
  
positive.code: %% List saved and built-in trace patterns.
  %%
  ltp() ->
      pt_doforall(fun({X, El},_Ignore) -> 
  			io:format("~p: ~p~n", [X,El]) 
  		end,[]).
  
  %%
  
negative.code: %%
  %% Actually write the built-in trace patterns too.
  wtp(FileName) ->
      case file:open(FileName,[write,{encoding,utf8}]) of
  	{error, Reason} ->
  	    {error, Reason};
  	{ok, File} ->
              io:put_chars(File, "%% coding: utf8\n"),
  	    pt_doforall(fun ({_, Val}, _) when is_list(Val) ->
  				io:format(File, "~tp.~n", [Val]);
  			    ({_, _}, _) ->
  				ok
  			end,
  