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:                                               :supersede
                                                :error))
              (print bind-type 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))))))
  
  