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: 
  wait_for_ct_stop(0, CTNode) ->
      test_server:format(0, "Giving up! Stopping ~p.", [CTNode]),
      ok;
  wait_for_ct_stop(Retries, CTNode) ->
      case rpc:call(CTNode, erlang, whereis, [ct_util_server]) of
  	undefined ->
  	    ok;
  	Pid ->
  	    test_server:format(0, "Waiting for CT (~p) to finish (~p)...", 
  			       [Pid,Retries]),
  
negative.code: 
  end_per_testcase(_TestCase, Config) ->
      CTNode = ?config(ct_node, Config),
      case wait_for_ct_stop(CTNode) of
  	%% Common test was not stopped to we restart node.
  	false ->
  	    cover:stop(CTNode),
  	    slave:stop(CTNode),
  	    start_slave(Config,proplists:get_value(trace_level,Config)),
  	    {fail, "Could not stop common_test"};
  	true ->
  	    ok
      end.
  
  %%%-----------------------------------------------------------------
  %%% 
  