anchor.diff:  %% init_connect
   %%
   %%========================================================================
  +
  +-spec handle_cast(term(), state()) -> {'noreply', state()}.
  +
   handle_cast({init_connect, Vsn, Node, InitMsg}, S) ->
       %% Sent from global_name_server at Node.
       ?trace({'####', init_connect, {vsn, Vsn}, {node,Node},{initmsg,InitMsg}}),
  
positive.code: %%          sent by each node to all new nodes (Node becomes known to them)
  %%-----------------------------------------------------------------
  
  handle_call({whereis, Name}, From, S) ->
      do_whereis(Name, From),
      {noreply, S};
  
negative.code:                              "received an unexpected message:\n"
                               "handle_cast(~p, _)\n", [Request]),
      {noreply, S}.
  
  %%========================================================================
  
  -spec handle_info(term(), state()) ->
          {'noreply', state()} | {'stop', term(), state()}.
  
  handle_info({'EXIT', Locker, _Reason}=Exit, #state{the_locker=Locker}=S) ->
      {stop, {locker_died,Exit}, S#state{the_locker=undefined}};
  