anchor.diff:  %% simple_resolve assumes that the node name comes first.
   node_name(Name, Config) ->
       U = "_",
  -    {{Y,M,D}, {H,Min,S}} = calendar:now_to_local_time(now()),
  +    {{Y,M,D}, {H,Min,S}} = calendar:now_to_local_time(erlang:timestamp()),
       Date = io_lib:format("~4w_~2..0w_~2..0w__~2..0w_~2..0w_~2..0w", 
                            [Y,M,D, H,Min,S]),
       L = lists:flatten(Date),
  
positive.code: -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),
  
      %% 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].
  
  end_per_testcase(_Case, Config) ->
      ct:log("Calling end_per_testcase!",[]),
      write_high_level_trace(Config),
      _ =
          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]) ||
  	{What, N} <- [{"Added", Registered -- InitRegistered},
  		      {"Removed", InitRegistered -- Registered}],
  	N =/= []],
  
      ok.
  
  
negative.code:     end.
  
  write_high_level_trace(Nodes, Config) ->
      When = erlang:timestamp(),
      %% 'info' returns more than the trace, which is nice.
      Data = [{Node, {info, rpc:call(Node, global, info, [])}} ||
                 Node <- Nodes],
  