anchor.diff:  
   (defun object-narrow (obj id)
     "Return an equivalent proxy with class for the repository id."
  +  (when (symbolp id)
  +    (setq id (symbol-ifr-id id)))
     (assert (op:_is_a obj id))
     (make-instance (find-proxy-class id)
       :id id
  
positive.code: ;;;; clorb-object.lisp --- CORBA:Object and other pseudo objects
  ;; $Id: clorb-object.lisp,v 1.6 2002/06/01 05:44:45 lenst Exp $
  
  (in-package :clorb)
  
  
negative.code: 
  (defmethod print-object ((o corba:proxy) stream)
    (print-unreadable-object (o stream :type t)
      (if (eql (class-of o)
               (find-class 'corba:proxy))
          (format stream "~S @ ~A:~A"
                  (object-id o)
                  (object-host o)
                  (object-port o))
        (format stream "~A:~A"
                (object-host o)
                (object-port o)))))
  
  (define-method _is_nil ((x null))
    t)
  