anchor.diff:  (defvar *naming-poa* nil)
   
   (defclass NAMING-CONTEXT (cosnaming:namingcontextext-servant)
  -  ((base :initarg :base :accessor nc-base)))
  +  ((base :initarg :base :accessor nc-base)
  +   (local-id :initarg :local-id :accessor local-id)))
   
   (define-method _default_POA ((servant naming-context))
     *naming-poa*)
  +
  +
  +(defmethod stored-string-id ((obj CORBA:Proxy))
  +  (op:object_to_string (clorb::the-orb obj) obj))
  +
  +(defmethod stored-string-id ((obj naming-context))
  +  (local-id obj))
  +
   
   (defparameter +safe-characters-extra+  "_-,")
   
  
positive.code: 
  (defun pns-bind (nc n obj bind-type &optional rebind)
    (assert (= 1 (length n)))
    (let ((orb (op:_orb nc))
          (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)
  
negative.code:       (with-standard-io-syntax ()
          (setq type (read stream))
          (setq ior (read stream))))
      (values type
        (if (clorb::string-starts-with ior "IOR:")
            (op:string_to_object (op:_orb self) ior)
            ;; ior is actually only local id, create a reference with that id
            (op:create_reference_with_id (op:_default_POA self)
                                         (portableserver:string-to-oid ior)
                                         (clorb::object-id self))))))
  
  
  
  (defun opt-local (poa obj)
    (let (oid)
  