anchor.diff:  	_ ->
   	    ok
       end,
  +    
  +    start_slave(Config, Level).
  +
  +start_slave(Config,Level) ->
       [_,Host] = string:tokens(atom_to_list(node()), "@"),
       
       test_server:format(0, "Trying to start ~s~n", ["ct@"++Host]),
  
positive.code: 
  end_per_testcase(_TestCase, Config) ->
      CTNode = ?config(ct_node, Config),
      wait_for_ct_stop(CTNode),
      ok.
  
  
  %%%-----------------------------------------------------------------
  %%% 
  
negative.code: 
  wait_for_ct_stop(0, CTNode) ->
      test_server:format(0, "Giving up! Stopping ~p.", [CTNode]),
      false;
  wait_for_ct_stop(Retries, CTNode) ->
      case rpc:call(CTNode, erlang, whereis, [ct_util_server]) of
  	undefined ->
  	    true;
  	Pid ->
  	    test_server:format(0, "Waiting for CT (~p) to finish (~p)...", 
  			       [Pid,Retries]),
  