anchor.diff:  	NewCalls = get_new_callbacks(NewConf, Fun),
   	call(NewCalls  ++ Rest, remove(?config_name, NewConf), Meta,
   	     lists:keyreplace(CBId, 1, CBs, {CBId, NewCBInfo}))
  -    catch Error:Reason ->
  -	    ct_logs:log("Suite Callback","Call to SCB failed: ~p:~p",
  -			[Error,{Reason,erlang:get_stacktrace()}]),
  -	    call(Rest, Config, Meta, CBs)
  +    catch throw:{error_in_scb_call,Reason} ->
  +	    call(Rest, {fail, Reason}, Meta, CBs)
       end;
   call([], Config, _Meta, CBs) ->
       ct_util:save_suite_data_async(?config_name, CBs),
  
positive.code: -spec terminate(Callbacks :: term()) ->
      ok.
  terminate(Callbacks) ->
      io:format("Callbacks: ~p",[Callbacks]),
      call([{CBId, fun call_terminate/3} || {CBId,_} <- Callbacks],
  	 ct_suite_callback_init_dummy, undefined, Callbacks),
      ok.
  
negative.code:     {Config, {Id, {Mod, NewState}}}.
  	
  call_terminate({Mod, State}, _, _) ->
      catch_apply(Mod,terminate,[State], ok),
      {[],{Mod,State}}.
  
  call_generic({Mod, State}, Config, {Function, undefined}) ->
  