anchor.diff:      ok = execute(TC, Opts, ERPid, Config).
   
   %%%-----------------------------------------------------------------
  +%%% 
  +possible_deadlock(Config) ->
  +    TC = possible_deadlock,
  +    DataDir = ?config(data_dir, Config),
  +    Suite = filename:join(DataDir, "io_test_SUITE"),
  +    {Opts,ERPid} = setup([{suite,Suite},{label,TC},
  +			  {event_handler,[simple_evh]}], Config),
  +    ok = execute(TC, Opts, ERPid, Config).
  +    
  +
  +%%%-----------------------------------------------------------------
   %%% HELP FUNCTIONS
   %%%-----------------------------------------------------------------
   
  
positive.code: %% there will be clashes with logging processes etc).
  %%--------------------------------------------------------------------
  init_per_suite(Config) ->
      Config1 = ct_test_support:init_per_suite(Config),
      Config1.
  
  end_per_suite(Config) ->
      ct_test_support:end_per_suite(Config).
  
negative.code: end_per_testcase(TestCase, Config) ->
      ct_test_support:end_per_testcase(TestCase, Config).
  
  suite() -> [{timetrap,{seconds,10}},
  	    {ct_hooks,[ts_install_cth]}].
  
  all() -> 
      [
  