anchor.diff:  -define(nodes_tag, '$global_nodes').
   -define(registered, proplists:get_value(registered, Config)).
   
  -init_per_testcase(Case, Config) when is_atom(Case), is_list(Config) ->
  -    ok = gen_server:call(global_name_server, high_level_trace_start,infinity),
  +init_per_testcase(Case, Config0) when is_atom(Case) andalso is_list(Config0) ->
  +    ?P("init_per_testcase -> entry with"
  +       "~n   Config:   ~p"
  +       "~n   Nodes:    ~p"
  +       "~n   Links:    ~p"
  +       "~n   Monitors: ~p",
  +       [Config0, erlang:nodes(), pi(links), pi(monitors)]),
  +
  +    ok = gen_server:call(global_name_server,
  +                         high_level_trace_start,
  +                         infinity),
   
       %% Make sure that everything is dead and done. Otherwise there are problems
       %% on platforms on which it takes a long time to shut down a node.
       stop_nodes(nodes()),
       timer:sleep(1000),
   
  -    [{?TESTCASE, Case}, {registered, registered()} | Config].
  +    Config1 = [{?TESTCASE, Case}, {registered, registered()} | Config0],
  +
  +    ?P("init_per_testcase -> done when"
  +       "~n   Config:   ~p"
  +       "~n   Nodes:    ~p"
  +       "~n   Links:    ~p"
  +       "~n   Monitors: ~p", [Config1, erlang:nodes(), pi(links), pi(monitors)]),
  +
  +    Config1.
   
   end_per_testcase(_Case, Config) ->
  -    ct:log("Calling end_per_testcase!",[]),
  +    ?P("end_per_testcase -> entry with"
  +       "~n   Config:   ~p"
  +       "~n   Nodes:    ~p"
  +       "~n   Links:    ~p"
  +       "~n   Monitors: ~p",
  +       [Config, erlang:nodes(), pi(links), pi(monitors)]),
  +
       write_high_level_trace(Config),
  -    _ =
  -        gen_server:call(global_name_server, high_level_trace_stop, infinity),
  +    _ = gen_server:call(global_name_server, high_level_trace_stop, infinity),
       [global:unregister_name(N) || N <- global:registered_names()],
       InitRegistered = ?registered,
       Registered = registered(),
  -    [io:format("~s local names: ~p~n", [What, N]) ||
  +
  +    [?P("end_per_testcase -> "
  +        "~n   ~s local names: ~p", [What, N]) ||
   	{What, N} <- [{"Added", Registered -- InitRegistered},
   		      {"Removed", InitRegistered -- Registered}],
   	N =/= []],
  +
  +    ?P("end_per_testcase -> done with"
  +       "~n   Nodes:    ~p"
  +       "~n   Links:    ~p"
  +       "~n   Monitors: ~p",
  +       [erlang:nodes(), pi(links), pi(monitors)]),
   
       ok.
   
  
positive.code:             ok
      end.
  
  %%-----------------------------------------------------------------
  %% The error_logger handler used for OTP-6931.
  %%-----------------------------------------------------------------
  
negative.code:     sync_until(no_log_file).
  
  sync_until(LogFile) ->
      Time = ?UNTIL_LOOP - (msec(erlang:timestamp()) rem ?UNTIL_LOOP),
      catch append_to_file(LogFile, {sync_until, Time}),
      timer:sleep(Time).
  
  