anchor.diff:  
    ;; ----------------------------------------------------------------------
  -;;;; Implicit activation
  -;; ----------------------------------------------------------------------
  +;;;; Servant methods depending on POA
  +;; ----------------------------------------------------------------------
  +
  +(defun current-primary-interface (servant)
  +  (primary-interface servant 
  +                     (poa-current-object-id *poa-current*)
  +                     (poa-current-poa *poa-current*)))
   
   (define-method _this ((servant servant))
     (let* ((poa (or (op:_default_POA servant)
  
positive.code: 
  (define-user-exception POA/InvalidPolicy
      :id "IDL:omg.org/PortableServer/POA/InvalidPolicy:1.0"
      :slots ((index)))
  
  (define-user-exception POA/NoServant
      :id "IDL:omg.org/PortableServer/POA/NoServant:1.0")
  
negative.code:     :id "IDL:omg.org/PortableServer/POA/ObjectNotActive:1.0")
  
  (define-user-exception POA/WrongAdapter
      :id "IDL:omg.org/PortableServer/POA/WrongAdapter:1.0")
  
  (define-user-exception POA/AdapterAlreadyExists
      :id "IDL:omg.org/PortableServer/POA/AdapterAlreadyExists:1.0")
  