anchor.diff:  %%%      should be returned. 
   
   get_suite(Mod, all) ->
  +
  +%%! --- Wed Nov 30 21:29:30 2011 --- peppe was here!
  +io:format(user, "*** GET SUITE ~p~n", [Mod]),
  +
       case catch apply(Mod, groups, []) of
   	{'EXIT',_} ->
   	    get_all(Mod, []);
  
positive.code: 	    {error,Error};
  	Tests ->
  	    Cases = get_all_cases1(Suite, Tests),
  	    lists:reverse(
  	      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]) ->
  
negative.code: 		    %% (and only) test case so we can report Error properly
  		    [{?MODULE,error_in_suite,[[Error]]}];
  		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",
  