anchor.diff:  %% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
   
   stack_grow_test() ->    
  -    ?line Pid = setup(),
  -    ?line 1 = erlang:trace_pattern({?MODULE,loop,4},
  +    Pid = setup(),
  +    1 = erlang:trace_pattern({?MODULE,loop,4},
   				   [{'_',[],[{return_trace}]}],[meta]),
  -    ?line Num = 1 bsl 15,
  -    ?line Surface =
  +    Num = 1 bsl 15,
  +    Surface =
   	fun (This, ?RFT(P,{?MODULE,loop,4},N), N) when P == Pid->
   		if N == Num ->
   			?NM,
  
positive.code: %% Setup silent local call tracing, and start it using meta trace.
  
  nosilent_test() ->
      ?line Pid = setup(),
      ?line Trigger = {?MODULE,id,1},
      ?line TriggerMS = [{[start],[],[{silent,false}]},
  		       {[stop],[],[{silent,true},{return_trace}]}],
      ?line 1 = erlang:trace(Pid, true, [call,silent,return_to]),
      ?line erlang:trace_pattern({?MODULE,'_','_'},[],[local]),
      ?line 1 = erlang:trace_pattern({?MODULE,local2,1},
  				   [{'_',[],[{return_trace}]}],
  				   [local]),
      ?line 1 = erlang:trace_pattern({?MODULE,slave,1},false,[local]),
      ?line 1 = erlang:trace_pattern(Trigger,false,[local]),
      ?line 1 = erlang:trace_pattern(Trigger,TriggerMS,[meta]),
      ?line [1,1,1,0] = apply_slave(?MODULE,exported_wrap,[1]),
      ?line receive_no_next(17),
      ?line start = apply_slave(?MODULE, id, [start]),
      ?line ?CTT(Pid,{?MODULE,id,[start]})		= receive_next(),
      ?line [2,2,2,0] = apply_slave(?MODULE,exported_wrap,[2]),
      ?line ?CT(Pid,{?MODULE,exported_wrap,[2]})		= receive_next(), 
      ?line ?CT(Pid,{?MODULE,exported,[2]})		= receive_next(),
      ?line ?CT(Pid,{?MODULE,local,[2]})			= receive_next(),
      ?line ?CT(Pid,{?MODULE,local2,[2]})			= receive_next(),
      ?line ?CT(Pid,{?MODULE,local_tail,[2]})		= receive_next(),
      ?line ?RF(Pid,{?MODULE,local2,1}, [2,0])		= receive_next(),
      ?line ?RT(Pid,{?MODULE,local,1})			= receive_next(),
      ?line ?RT(Pid,{?MODULE,exported,1})			= receive_next(),
      ?line ?RT(Pid,{?MODULE,slave,1})			= receive_next(),
      ?line stop = apply_slave(?MODULE, id, [stop]),
      ?line ?CTT(Pid,{?MODULE,id,[stop]})			= receive_next(),
      ?line ?RFT(Pid,{?MODULE,id,1}, stop)		= receive_next(),
      ?line [3,3,3,0] = apply_slave(?MODULE,exported_wrap,[3]),
      ?line receive_no_next(17),
      ?line shutdown(),
      ok.
  
  %% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  
negative.code:     Sync ! sync,
      receive
  	{From,apply, M, F, A} ->
  	    ?dbgformat("Apply: ~p:~p/~p (~p)~n",[M,F,length(A),A]),
  	    Res = apply(M,F,A),
  	    ?dbgformat("done Apply: ~p:~p/~p (~p)~n",[M,F,length(A),A]),
  	    From ! {apply, Res},
  	    erlang:trace_pattern({?MODULE,slave,1},false,[meta]),
  	    slave(From);
  