anchor.diff:  
   (define-method id_to_servant ((poa POA) id)
     (or (trie-get (to-object-id id) (POA-active-object-map poa))
  -      (error 'ObjectNotActive)))
  +      (error 'POA/ObjectNotActive)))
   
   ;;;   Object id_to_reference(in ObjectId oid)
   ;;;     raises (ObjectNotActive, WrongPolicy);
  
positive.code: 
  (defclass ServantManager () ())
  
  (defclass ServantActivator (ServantManager) ())
  
  (define-method incarnate ((s ServantActivator) oid adapter)
    ;; Raises ForwardRequest
  
negative.code:           (policies :initarg :policies :accessor poa-policies)
            (poaid :initarg :poaid :accessor poa-poaid)
            (auto-id :accessor poa-auto-id :initform 0)
            (children :initform nil :accessor poa-children)
            (the-orb :accessor the-orb)))
  
  (defmethod print-object ((p POA) stream)
    (print-unreadable-object (p stream :type t)
  