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