anchor.diff:  		exit:{skipped, SkipReason} ->
   		    io:format(" => skipping suite: ~p~n", [SkipReason]),
   		    [{skipped, {Mod, init_per_suite}, SkipReason, 0}];
  -		exit:{undef, _} ->
  +		error:undef ->
   		    [t({Mod, Case, Groups}, Config) || Case <- Cases];
   		T:E ->
  +		    io:format(" => failed suite: ~p~n", [{T,E}]),
   		    [{failed, {Mod, init_per_suite}, {T,E}, 0}]
   	    end;
  -        {'EXIT', {undef, _}} ->
  -	    io:format("Undefined:   ~p~n", [{Mod, all}]),
  -	    [{nyi, {Mod, all}, ok, 0}];
  -		    
  +
   	Crap ->
   	    Crap
  +
  +    catch
  +        error:undef ->
  +	    io:format("Undefined:   ~p~n", [{Mod, all}]),
  +	    [{nyi, {Mod, all}, ok, 0}]
  +		    
       end;
   t(Bad, _Config) ->
       [{badarg, Bad, ok, 0}].
  
positive.code: %%     {Mod, Fun, ExpectedRes, ActualRes}
  %%----------------------------------------------------------------------
  
  tickets(Mod) ->
      %% io:format("~w:tickets -> entry with"
      %% 	      "~n   Mod: ~p", [?MODULE, Mod]),
      Res0 = t({Mod, {group, tickets}, Mod:groups()}, default_config()),
      Res  = lists:flatten(Res0),
      %% io:format("~w:tickets(Mod = ~w) -> Res: ~p~n", [?MODULE, Mod, Res]),
      display_result(Res),
      Res.
  
  
negative.code: 		  end,
  	    t(lists:map(Map, Cases), Config);
  
          Error ->
  	    io:format("Ignoring:   ~p: ~p~n", [{Mod, Fun}, Error]),
  	    [{failed, {Mod, Fun}, Error, 0}]
  
      catch
          error:undef ->
  	    io:format("Undefined:   ~p~n", [{Mod, Fun}]),
  	    [{nyi, {Mod, Fun}, ok, 0}]
  
  	
      end;
  t(Mod, Config) when is_atom(Mod) ->
      %% p("t -> entry with"
      %% 	 "~n   Mod:    ~p"
      %% 	 "~n   Config: ~p", [Mod, Config]),    
      %% This is assumed to be a test suite, so we start by calling 
      %% the top test suite function(s) (all/0 and groups/0).
      try Mod:all() of
  	Cases when is_list(Cases) -> 
  	    %% The list may contain atoms (actual test cases) and
  	    %% group-tuples (a tuple naming a group of test cases).
  