anchor.diff:  
   (defun poa-demux (sreq)
     (with-slots (object-key operation) sreq
  -    (multiple-value-bind (reftype poaid oid) 
  +    (multiple-value-bind (reftype poa oid)
           (decode-object-key-poa object-key)
         (setf (server-request-oid sreq) oid)
  -      (let ((poa (gethash poaid *poa-map*)))
  -        (cond
  -         ((and reftype poa)
  -          (setf (server-request-poa sreq) poa)
  -          (mess 3 "Using POA ~A oid '~/clorb:stroid/'" (op:the_name poa) oid)
  -          ;; Check if POA is active, holding, discarding...
  -          (poa-invoke poa sreq))
  -         (t
  -          (set-request-exception 
  -           sreq (make-condition 'CORBA:OBJECT_NOT_EXIST))
  -          (send-response sreq)))))))
  +      (cond
  +        ((and reftype poa)
  +         (setf (server-request-poa sreq) poa)
  +         (mess 3 "Using POA ~A oid '~/clorb:stroid/'" (op:the_name poa) oid)
  +         ;; Check if POA is active, holding, discarding...
  +         (poa-invoke poa sreq))
  +        (t
  +         (set-request-exception
  +          sreq (make-condition 'CORBA:OBJECT_NOT_EXIST))
  +         (send-response sreq))))))
   
   (defun root-POA (&optional (orb (orb_init)))
     (unless (adaptor orb)
       (setup-server orb))
     (unless *root-POA*
  -    (setq *root-poa* (create-POA nil "root" nil nil)))
  +    (setq *root-poa* (create-POA nil "root" nil nil))
  +    (setf (the-orb *root-poa*) orb))
     *root-POA*)
   
   (eval-when (:load-toplevel :execute)
  
positive.code: (defmethod listner-sockets ((adaptor clorb-adaptor))
    (if (listner-socket adaptor)
        (list (listner-socket adaptor))))
  
  (defun srv-handle-socket (adaptor socket &optional allow-blocking)
    (let ((conn (accept-connection-on-socket socket allow-blocking)))
  
negative.code: 
  
  (defun get-message (stream)
    (let ((sreq (make-server-request
                 :stream stream
                 :buffer (get-work-buffer))))
      (when (read-request sreq stream)
  