anchor.diff:          (ensure-eql (request-state r1) :finished)
           (ensure-eql (request-state r2) :finished))))
   
  -  (define-test "Hola and discard"
  +
  +  (define-test "Hold and discard"
       (let* ((oid #(1))
              (proxy (op:activate_object_with_id root-poa oid (make-instance 'null-servant)))
              (r1 (test-poa-dispatch root-poa :operation "_is_a" :args '("foo") :oid oid)))
  
positive.code:       (ensure-exception
         (op:create_POA poa1 "p9" nil nil)
         CORBA:BAD_INV_ORDER 'op:minor (std-minor 17))))
  
    (define-test "POA Activator"
      (defclass test-activator (PortableServer:ADAPTERACTIVATOR)
  
negative.code:                         :adapter poa
                          :expected-oid my-oid )))
        (op:set_servant_manager poa activator)
        (op:activate (op:the_poamanager poa))
        (test-poa-invoke poa :operation "_non_existent" :oid my-oid :args '())
        ;; pattern for etheralize arguments
        (setf (slot-value activator 'etheralize-verifier)
              (sexp-pattern
               `(,(sequence-pattern 18) ,poa ,(slot-value activator 'created-servant) t t)))
        (op:deactivate (op:the_poamanager poa) t t)
        (ensure-eql (slot-value activator 'etheralize-called) 1)
        ;; Again, but with destroy
        (setq poa (op:create_POA root-poa "p2" nil
                                 (list (op:create_request_processing_policy root-poa :use_servant_manager)
                                       (op:create_servant_retention_policy root-poa :retain))))
        (setf (slot-value activator 'adapter) poa)
        (op:set_servant_manager poa activator)
        (op:activate (op:the_poamanager poa))
        (test-poa-invoke poa :operation "_non_existent" :oid my-oid :args '())
        ;; pattern for etheralize arguments
        (setf (slot-value activator 'etheralize-verifier)
              (sexp-pattern
               `(,(sequence-pattern 18) ,poa ,(slot-value activator 'created-servant) t t)))
        (op:destroy poa t t)
        (ensure-eql (slot-value activator 'etheralize-called) 2)))
  
  
  ;;;; State changes
  
    (define-test "Hold and activate"
      (let* ((poa-1 (op:create_POA root-poa "a1" nil nil))
  