anchor.diff:  %% there will be clashes with logging processes etc).
   %%--------------------------------------------------------------------
   init_per_suite(Config) ->
  -    Config1 = ct_test_support:init_per_suite(Config),
  -    Config1.
  +    DataDir = ?config(data_dir, Config),
  +    EvH = filename:join(DataDir,"simple_evh.erl"),
  +    ct:pal("Compiling ~s: ~p", [EvH,compile:file(EvH,[{outdir,DataDir},
  +						      debug_info])]),
  +    ct_test_support:init_per_suite([{path_dirs,[DataDir]} | Config]).
   
   end_per_suite(Config) ->
       ct_test_support:end_per_suite(Config).
  
positive.code: end_per_testcase(TestCase, Config) ->
      ct_test_support:end_per_testcase(TestCase, Config).
  
  suite() -> [{ct_hooks,[ts_install_cth]}].
  
  all() -> 
      [
  
negative.code:     Opts0 = ct_test_support:get_opts(Config),
      Level = ?config(trace_level, Config),
      EvHArgs = [{cbm,ct_test_support},{trace_level,Level}],
      Opts =
  	case proplists:get_value(event_handler, Test) of
  	    undefined ->
  		Opts0 ++ [{event_handler,{?eh,EvHArgs}} | Test];
  	    EvHs ->
  		Opts0 ++ [{event_handler,[{?eh,EvHArgs}|EvHs]} |
  			  proplists:delete(event_handler, Test)]
  	end,
      ERPid = ct_test_support:start_event_receiver(Config),
      {Opts,ERPid}.
  
  