anchor.diff:        (resolve1 self n)
       (unless (eq type :ncontext)
         (not-found :not_context n))
  -    (values 
  +    (values
        (opt-local (op:_default_POA self) obj)
        (subseq n 1))))
   
  
positive.code:                            +naming-context-id+))
       out)))
  
  
negative.code: (define-method incarnate ((m naming-manager) oid adapter)
    (declare (ignore adapter))
    (make-instance 'naming-context
      :base (merge-pathnames
             (make-pathname
              :directory `(:relative ,(portableserver:oid-to-string oid)))
             *naming-base-path*)))
  
  (defun setup-naming-poa ()
    (let* ((orb (CORBA:ORB_init))
  