anchor.diff:      ?line 
       ?UNTIL(begin
   	       NN = lists:sort(rpc:call(Cp1, global, registered_names, [])),
  -	       [kalle, stina, test_server, vera] =:= NN
  +	       [kalle, stina, vera] =:= NN
   	   end),
       ?line ?UNTIL
          ([Cp1, Cp3] =:=
           lists:sort(rpc:call(Cp2, erlang, nodes, [])) -- [node()]),
  -    ?line ?UNTIL([kalle, stina, test_server, vera] =:=
  +    ?UNTIL([kalle, stina, vera] =:=
   	lists:sort(rpc:call(Cp2, global, registered_names, []))),
       ?line ?UNTIL
          ([Cp1, Cp2] =:=
           lists:sort(rpc:call(Cp3, erlang, nodes, [])) -- [node()]),
  -    ?line ?UNTIL([kalle, stina, test_server, vera] =:=
  +    ?UNTIL([kalle, stina, vera] =:=
    	lists:sort(rpc:call(Cp3, global, registered_names, []))),
   
       write_high_level_trace(Config),
  
positive.code: 	Config.
  
  init_per_suite(Config) ->
  
      %% Copied from test_server_ctrl ln 647, we have to do this here as
      %% the test_server only does this when run without common_test
      global:sync(),
      case global:whereis_name(test_server) of
  	undefined ->
  	    io:format(user, "Registering test_server globally!~n",[]),
  	    global:register_name(test_server, whereis(test_server_ctrl));
  	Pid ->
  	    case node() of
  		N when N == node(Pid) ->
  		    io:format(user, "Warning: test_server already running!\n", []),
  		    global:re_register_name(test_server,self());
  		_ ->
  		    ok
  	    end
      end,
      Config.
  
  end_per_suite(_Config) ->
      global:unregister_name(test_server),
      ok.
  
  
  
negative.code:                         {"Global Locks     (ETS)", global_locks},
                          {"Global Pid Names (ETS)", global_pid_names},
                          {"Global Pid Ids   (ETS)", global_pid_ids}]],
      ?UNTIL([] =:= global:registered_names()),
      ?UNTIL([] =:= nodes()),
      ?UNTIL([node()] =:= get_known(node())),
      ok.
  