anchor.diff:      EReport = error_logger_tty_h:write_event(
   		tag_event(Event),io_lib),
       if is_list(EReport) ->
  -	    ct:log(error_logger, EReport, []);
  +	    ct_logs:LogFunc(error_logger, EReport, []);
          true -> %% Report is an atom if no logging is to be done
   	    ignore
       end,
  -    {ok, Type}.
  +    {ok, LogFunc}.
   
  +handle_info({set_logfunc,NewLogFunc,Reply},_) ->
  +    Reply ! {ok,NewLogFunc},
  +    {ok, NewLogFunc};
   handle_info(_,State) -> {ok, State}.
   
   handle_call(_Query, _Type) -> {error, bad_query}.
  
positive.code: 
  
  %% CTH Callbacks
  -export([id/1, init/2, pre_init_per_testcase/3, post_end_per_testcase/4]).
  
  %% Event handler Callbacks
  -export([init/1,
  	 handle_event/2, handle_call/2, handle_info/2,
  	 terminate/2]).
  
  -record(state, { }).
  
  id(_Opts) ->
      ?MODULE.
  
  init(?MODULE, _Opts) ->
      error_logger:add_report_handler(?MODULE),
      #state{  }.
  
  pre_init_per_testcase(_Testcase, Config, State) ->
      {Config, State}.
  
  post_end_per_testcase(_TestCase, _Config, Result, State) ->
      {Result, State}.
  
  %% Copied and modified from sasl_report_tty_h.erl
  init(Type) ->
      {ok, Type}.
  
  handle_event({_Type, GL, _Msg}, State) when node(GL) /= node() ->
      {ok, State};
  handle_event(Event, Type) ->
      case proplists:get_value(sasl, application:which_applications()) of
  	undefined ->
  	    sasl_not_started;
  	_Else ->
  
negative.code: 	    SReport = sasl_report:format_report(group_leader(), ErrLogType,
  						tag_event(Event)),
  	    if is_list(SReport) ->
  		    ct_logs:LogFunc(sasl, SReport, []);
  	       true -> %% Report is an atom if no logging is to be done
  		    ignore
  	    end
  