anchor.diff:      {ok,S1}.
   
   % @hidden     
  -handle_call({job,Spec},From,S) ->
  -    {W, L} = f:lrot(S#ej.workers),
  -    gen_server:cast(W,{job,From,Spec}),
  -    {noreply, S#ej{workers=L}};
   handle_call({send,Ref,Tag,Msg},From,S) ->
       {W, L} = f:lrot(S#ej.workers),
       gen_server:cast(W,{send,From,Ref,Tag,Msg}),
  
positive.code: ping() ->
      gen_server:call(?SRVNAME, {ping}).
  
  
  %% ------ GENERIC -----
  
  
negative.code:     end.
  
  shutdown(Peer,S) ->
      lists:map(fun(W) -> W ! {'STOP'} end, S#ej.workers),
      shutdown_peer(Peer).
  
  shutdown_peer(Peer) ->
      send_peer(Peer, Ref=get_ref(), ?TAG_NODE, [?EJMSGPART(call,shutdown)]),
      receive
          {Peer,Ref,{?TAG_OK,[?EJMSGPART(call,bye)]}} -> 
              log:info(self(), "shutdown confirmed by peer", []),
  