anchor.diff:  
   (defmethod print-object ((o corba:proxy) stream)
     (print-unreadable-object (o stream :type t)
  -    (format stream "~S @ ~A:~A"
  -            (object-id o)
  -            (object-host o)
  -            (object-port o))))
  +    (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)
  
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: 
  (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
  