anchor.diff:  nq(Arg, Q) ->
       {ok, TPid} = diameter_sctp_sup:start_child(Arg),
       monitor(process, TPid),
  -    ets:insert(Q, {TPid, now()}),
  -    TPid.
  +    {TPid, queue:in(TPid, Q)}.
   
   %% dq/1
   %%
  
positive.code: %% ---------------------------------------------------------------------------
  
  handle_call({{accept, Ref}, Pid}, _, #listener{ref = Ref,
                                                 pending = {N,Q},
                                                 count = K}
                                       = S) ->
      TPid = accept(Ref, Pid, S),
      {reply, {ok, TPid}, S#listener{pending = {N-1,Q},
                                     count = K+1}};
  
  handle_call(_, _, State) ->
      {reply, nok, State}.
  
negative.code:     NewS;
  
  l({'DOWN', _MRef, process, TPid, _}, #listener{pending = {_,Q}} = S) ->
      down(queue:member(TPid, Q), TPid, S);
  
  %% Timeout after the last accepting process has died.
  l({timeout, TRef, close = T}, #listener{tref = TRef,
  