anchor.diff:  
       case SchedulerWallTime of
   	undefined ->
  -            erlang:system_flag(scheduler_wall_time,true),
               spawn(fun() -> flag_holder_proc(Collector) end),
               ok;
   	_ ->
  
positive.code:     erlang:system_flag(scheduler_wall_time, true),
      receive
  	_Msg ->
  	    %% erlang:system_flag(scheduler_wall_time, false)
  	    ok
      after Time ->
  	    _M = Parent ! {stats, 1,
  
negative.code:     end.
  
  flag_holder_proc(Collector) ->
      erlang:system_flag(scheduler_wall_time,true),
      Ref = erlang:monitor(process,Collector),
      receive
  	{'DOWN',Ref,_,_,_} ->
  	    erlang:system_flag(scheduler_wall_time,false),
  	    ok
      end.
  
  