anchor.diff:  		    OK
   	    end
       end.
  -    
  -    
  +
  +trap_exit(Flag) when is_boolean(Flag) ->    
  +    erlang:process_flag(trap_exit, Flag).
  +
  +unlink_and_flush_exit(Pid) ->
  +    unlink(Pid),
  +    receive
  +        {'EXIT', Pid, _} ->
  +            ok
  +    after 0 ->
  +            ok
  +    end.
  +
   tc_wait(From, Env, M, F, A) ->
       ?PRINT2("tc_wait -> entry with"
               "~n   From: ~p"
  
positive.code: %%% configuration.
  %%%--------------------------------------------------
  
  try_test(Mod, Func) ->
      tc_try(get(mgr_node), ?MODULE, tc_run, [Mod, Func, [], []]).
  
  try_test(Mod, Func, A) ->
      tc_try(get(mgr_node), ?MODULE, tc_run, [Mod, Func, A, []]).
  
  try_test(Mod, Func, A, Opts) ->
      tc_try(get(mgr_node), ?MODULE, tc_run, [Mod, Func, A, Opts]).
  
  %% We spawn a test case runner process on the manager node.
  %% The assumption is that the manager shall do something, but
  
negative.code:                     "~n   Rn:  ~p"
                      "~n   Loc: ~p"
                      "~n", [Rn, Loc]),
              trap_exit(OldFlag),
              unlink_and_flush_exit(Runner),
  	    put(test_server_loc, Loc),
  	    exit(Rn);
  	{tc_runner_done, Runner, Ret, _Zed} -> 
  	    ?DBG("call -> done:"
  		 "~n   Ret: ~p"
  		 "~n   Zed: ~p", [Ret, _Zed]),
              trap_exit(OldFlag),
              unlink_and_flush_exit(Runner),
  	    case Ret of
  		{error, Reason} ->
  		    exit(Reason);
  