anchor.diff:  		    %% (and only) test case so we can report Error properly
   		    [{?MODULE,error_in_suite,[[Error]]}];
   		ConfTests ->
  -		    get_all(Mod, ConfTests)
  +		    %% get_all(Mod, ConfTests)
  +
  +		    %%! --- Wed Nov 30 21:30:35 2011 --- peppe was here!
  +		    All = get_all(Mod, ConfTests),
  +		    io:format(user, "*** All = ~p~n", [All]),
  +		    All
  +		    
   	    end;
   	_ ->
   	    E = "Bad return value from "++atom_to_list(Mod)++":groups/0",
  
positive.code: timetrap_first([Other | Rest],Info,Found) ->
      timetrap_first(Rest,[Other | Info],Found);
  timetrap_first([],Info,[]) ->
      [{timetrap,{minutes,30}} | lists:reverse(Info)];
  timetrap_first([],Info,Found) ->
      lists:reverse(Found) ++ lists:reverse(Info).
  
  configure([{require,Required}|Rest],Info,SuiteInfo,Scope,Config) ->
      case ct:require(Required) of
  
negative.code: 	    {error,Error};
  	Tests ->
  	    Cases = get_all_cases1(Suite, Tests),
  	    ?rev(lists:foldl(fun(TC, TCs) ->
  				     case lists:member(TC, TCs) of
  				      true  -> TCs;
  					 false -> [TC | TCs]
  				     end
  			     end, [], Cases))
      end.
  
  get_all_cases1(Suite, [{conf,_Props,_Init,GrTests,_End} | Tests]) ->
  