anchor.diff:    
     
     (define-test "set_servant_manager"
  -     (handler-case 
  -       (progn (op:set_servant_manager root-poa nil)
  -              (ensure nil))
  -       (omg.org/portableserver:poa/wrongpolicy () nil))
  +     (ensure-exception (op:set_servant_manager root-poa nil)
  +       portableserver:poa/wrongpolicy  )
        (let ((poa (op:create_POA root-poa "p" nil
                                  (list (op:create_request_processing_policy root-poa :use_servant_manager)
                                        (op:create_servant_retention_policy root-poa :retain)))))
  
positive.code: 
  (defclass null-servant (portableserver:servant) ())
  (defmethod interface-name ((self null-servant)) 'CORBA:Object)
  
  (define-test-suite "POA Test"
    (variables 
  
negative.code:         (OMG.ORG/PORTABLESERVER:POA/ADAPTERNONEXISTENT ()))
        (ensure-eql (gethash id1 *poa-map*) nil)
        (ensure-eql (gethash id2 *poa-map*) nil)
        (ensure (not (member poa1 (managed-poas (op:the_poamanager poa1))))
                "UnRegistered with the manger")
        (ensure-exception
         (op:create_POA poa1 "p9" nil nil)
         CORBA:BAD_INV_ORDER 'op:minor (std-minor 17))))
  