anchor.diff:  		    set_io_buffering(undefined),
   		    {Mod,Func} = skip_case(auto, Ref, 0, Case, Comment, false, SkipMode),
   		    test_server_sup:framework_call(report, [tc_auto_skip,{?pl2a(Mod),Func,Comment}]),
  -		    run_test_cases_loop(Cases, Config, TimetrapData, tl(Mode),
  +		    run_test_cases_loop(Cases, Config, TimetrapData, ParentMode,
   					delete_status(Ref, Status));
   		_ ->
   		    %% this is a skipped end conf for a parallel group nested under a
  
positive.code:     case [R || {R,Ps,_} <- Mode, lists:member(Attrib, Ps)] of
  	[] -> false;
  	[Ref|_] -> Ref
      end.
  
  get_name([{_Ref,Props,_}|_]) ->
  
negative.code: 	{_,Fail,_} when element(1,Fail) == 'EXIT';
  			element(1,Fail) == timetrap_timeout;
  			element(1,Fail) == failed ->
  	    {Cases2,Config1,Status3} =
  		if StartConf ->
  			ReportAbortRepeat(failed),
  			print(minor, "~n*** ~p failed.~n"
  			      "    Skipping all cases.", [Func]),
  			Reason = {failed,{Mod,Func,Fail}},
  			{skip_cases_upto(Ref, Cases, Reason, conf, CurrMode),
  			 Config,
  			 update_status(failed, group_result, get_name(Mode0),
  				       delete_status(Ref, Status2))};
  		   not StartConf ->
  			ReportRepeatStop(),
  			print_conf_time(ConfTime),
  			{Cases,tl(Config),delete_status(Ref, Status2)}
  		end,
  	    set_io_buffering(IOHandler),
  	    stop_minor_log_file(),
  
  	    %%! --- Fri Aug  6 13:25:35 2010 --- peppe was here!
  	    io:format(user, "## {~p,~p,~p}: Status = ~p~n", [get_name(Mode0),Ref,Func,Status3]),
  
  	    run_test_cases_loop(Cases2, Config1, TimetrapData, Mode, Status3);
  	{died,Why,_} when Func == init_per_suite ->
  	    print(minor, "~n*** Unexpected exit during init_per_suite.~n", []),
  	    Reason = {failed,{Mod,init_per_suite,Why}},
  