anchor.diff:  
   
   
  +(defvar *pre-narrowed-ns* nil)
  +(defvar *narrowed-ns* nil)
  +
   (defun get-ns ()
     (let ((ns (op:resolve_initial_references (orb_init) "NameService")))
  -    (typecase ns
  -      (cosnaming:namingcontext ns)
  -      (t (object-narrow ns 'cosnaming:namingcontext)))))
  +    (cond ((and (eq ns *pre-narrowed-ns*)
  +                *narrowed-ns*)
  +           *narrowed-ns*)
  +          (t
  +           (setq *pre-narrowed-ns* ns
  +                 *narrowed-ns* nil)
  +           (typecase ns
  +             (cosnaming:namingcontext ns)
  +             (t
  +              (or
  +               (setq *narrowed-ns* (object-narrow ns 'cosnaming:namingcontextext t))
  +               (setq *narrowed-ns* (object-narrow ns 'cosnaming:namingcontext)))))))))
   
   (defun resolve (&rest names)
     (op:resolve (get-ns) (ns-name* names)))
  
positive.code: 
  (in-package :clorb)
  
  (defvar *repositories* '())
  
  
  ;;;; file URL
  
negative.code:   (let ((effective-id (proxy-id object)))
      (or (find-opdef *object-interface* op)
          (find-opdef (or (known-interface effective-id)
                          (op:lookup_id *internal-interface-repository* effective-id)
                          (object-interface object)
                          (get-interface effective-id)) 
                      op))))
  