anchor.diff:  	end,
       ct_util:reset_silent_connections(),
   
  -    FinalResult = case get('$test_server_framework_test') of
  -		      undefined ->
  -			  ct_suite_callback:end_tc(
  -			    Mod, FuncSpec, Args, Return);
  -		      Fun ->
  -			  Fun(end_tc, ok)
  -		  end,
  -
  -    %% send sync notification so that event handlers may print
  -    %% in the log file before it gets closed
  -    ct_event:sync_notify(#event{name=tc_done,
  -				node=node(),
  -				data={Mod,FuncSpec,tag(FinalResult)}}),
  +    case get('$test_server_framework_test') of
  +	undefined ->
  +	    FinalResult = ct_suite_callback:end_tc(
  +			    Mod, FuncSpec, Args, Result),
  +	    % send sync notification so that event handlers may print
  +	    % in the log file before it gets closed
  +	    ct_event:sync_notify(#event{name=tc_done,
  +					node=node(),
  +					data={Mod,FuncSpec,tag(FinalResult)}});
  +	Fun ->
  +	    % send sync notification so that event handlers may print
  +	    % in the log file before it gets closed
  +	    ct_event:sync_notify(#event{name=tc_done,
  +					node=node(),
  +					data={Mod,FuncSpec,tag(Result)}}),
  +	    FinalResult = Fun(end_tc, ok)
  +    end,
  +
  +    
       case FinalResult of
   	{skip,{sequence_failed,_,_}} ->
   	    %% ct_logs:init_tc is never called for a skipped test case
  
positive.code: 	    ct_util:match_delete_suite_data({seq,Mod,'_'});
  	_ -> 
  	    ok
      end, FinalResult.
  
  %% {error,Reason} | {skip,Reason} | {timetrap_timeout,TVal} | 
  %% {testcase_aborted,Reason} | testcase_aborted_or_killed | 
  
negative.code:     {failed,E};
  tag(E = testcase_aborted_or_killed) ->
      {failed,E};
  tag(Other) ->
      Other.
  
  