anchor.diff:  %%%-----------------------------------------------------------------
   %%% Call-back functions from gen_server
   %%%-----------------------------------------------------------------
  +
  +-spec init([]) -> {'ok', state()}.
  +
   init([]) ->
       process_flag(trap_exit, true),
       _ = ets:new(global_locks, [set, named_table, protected]),
  
positive.code: %% init_connect
  %%
  %%========================================================================
  handle_cast({init_connect, Vsn, Node, InitMsg}, S) ->
      %% Sent from global_name_server at Node.
      ?trace({'####', init_connect, {vsn, Vsn}, {node,Node},{initmsg,InitMsg}}),
  
negative.code: 	    send_again({whereis, Name, From})
      end.
  
  -spec terminate(term(), state()) -> 'ok'.
  
  terminate(_Reason, _S) ->
      true = ets:delete(global_names),
      true = ets:delete(global_names_ext),
      true = ets:delete(global_locks),
      true = ets:delete(global_pid_names),
      true = ets:delete(global_pid_ids),
      ok.
  
  -spec code_change(term(), state(), term()) -> {'ok', state()}.
  
  code_change(_OldVsn, S, _Extra) ->
      {ok, S}.
  