anchor.diff:  	
       end;
   t(Mod, Config) when is_atom(Mod) ->
  -    %% p("t -> entry with"
  -    %% 	 "~n   Mod:    ~p"
  -    %% 	 "~n   Config: ~p", [Mod, Config]),    
  +    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
  
positive.code: wait_for_evaluator(Pid, Mod, Fun, Config, Errors) ->
      wait_for_evaluator(Pid, Mod, Fun, Config, Errors, 0).
  wait_for_evaluator(Pid, Mod, Fun, Config, Errors, AccTime) ->
      TestCase = {?MODULE, Mod, Fun},
      Label = lists:concat(["TEST CASE: ", Fun]),
      receive
  
negative.code: 
  %% This is for sub-SUITEs
  t({_Mod, {NewMod, all}, _Groups}, _Config) when is_atom(NewMod) ->
      p("t(all) -> entry with"
        "~n   NewMod: ~p", [NewMod]),
      t(NewMod);
  t({Mod, {group, Name} = Group, Groups}, Config) 
    when is_atom(Mod) andalso is_atom(Name) andalso is_list(Groups) ->
      p("t(group) -> entry with"
        "~n   Mod:    ~p"
        "~n   Name:   ~p"
        "~n   Groups: ~p"
        "~n   Config: ~p", [Mod, Name, Groups, Config]),
      case lists:keysearch(Name, 1, Groups) of
  	{value, {Name, _Props, GroupsAndCases}} ->
  	    try init_group(Mod, Name, Config) of
  