anchor.diff:    case dequeue_procedure_call(Pid,InvocationId,Details,Arguments,ArgumentsKw,Error,State) of
       {ok} -> ok;
       {error,Reason} ->
  -      disconnect({invocation_error,Reason},Pid)
  +      disconnect(Pid,{invocation_error,Reason})
     end;
   
   handle_wamp_message({yield,InvocationId,Options,Arguments,ArgumentsKw},Pid,State) ->
  
positive.code:       send_message_to({abort,[],not_authorized},Pid),
        send_message_to(shutdown,Pid);
      {needs_auth,AuthMethod,Extra} ->
        send_message_to({challenge,SessionId,AuthMethod,Extra},Pid)
    end;
  
  handle_wamp_message({authenticate,Signature,Extra},Pid,#state{mw=MW,version=Version}=State) ->
  
negative.code:   case dequeue_procedure_call(Pid,InvocationId,Options,Arguments,ArgumentsKw,undefined,State) of
      {ok} -> ok;
      {error,Reason} ->
        disconnect(Pid,{yield,Reason})
    end;
  
  handle_wamp_message(Msg,Pid,_State) ->
    disconnect(Pid,{unknown_message,Msg}),
    ok.
  
  
  