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