anchor.diff:            :policies policies
             :poaid (incf *last-poaid*))))
       (when poa
  -      (push newpoa (POA-children poa)))
  +      (push newpoa (POA-children poa))
  +      (setf (the-orb newpoa) (the-orb poa)))
       (register-poa newpoa)
       newpoa))
   
  
positive.code: (defun decode-object-key-poa (objkey)
    (multiple-value-bind (type poaid oid)
        (decode-object-key objkey)
      (when (consp poaid)
        (let ((poa *root-POA*))
          (loop for n in poaid
              do (setq poa (op:find_poa poa n t)))
          (setq poaid (poa-poaid poa))))
      (values type poaid oid)))
  
  
  
negative.code: 
  (define-method id_to_servant ((poa POA) id)
    (or (trie-get (to-object-id id) (POA-active-object-map poa))
        (error 'POA/ObjectNotActive)))
  
  ;;;   Object id_to_reference(in ObjectId oid)
  ;;;     raises (ObjectNotActive, WrongPolicy);
  