anchor.diff:                                                :supersede
                                                 :error))
               (print bind-type out)
  -            (print (op:object_to_string orb obj) out))
  +            (print (if (eql bind-type :ncontext)
  +                       (stored-string-id (opt-local (op:_poa nc) obj))
  +                       (stored-string-id obj))
  +                   out))
          (file-error ()
            (error 'COSNAMING:NAMINGCONTEXT/ALREADYBOUND))))))
   
  
positive.code: (defclass NAMING-MANAGER (portableserver:servantactivator)
    ())
  
  (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))
  
negative.code: 
  (defun pns-bind (nc n obj bind-type &optional rebind)
    (assert (= 1 (length n)))
    (let ((name-component (elt n 0)))
      ;; FIXME: if rebind, should check the type of (possibly) already existing binding
      (let ((path (pns-path nc name-component)))
        (ensure-directories-exist path)
  