anchor.diff:  
   
   (define-condition corba:exception (serious-condition)
  -  ((id :initform "IDL:omg.org/CORBA/Exception:1.0"
  -       :initarg :id
  -       :reader exception-id)))
  +  ())
  +
  +(defgeneric exception-name (exception)
  +  (:documentation "The scoped symbol for the exception type"))
  +
  +(defun exception-id (exception)
  +  (symbol-ifr-id (exception-name exception)))
  +
   
   (deftype CORBA::completion_status ()
     '(member :COMPLETED_YES :COMPLETED_NO :COMPLETED_MAYBE))
  +
  +(set-symbol-typecode 'CORBA:completion_status
  +                     (make-typecode :tk_enum
  +                                    "IDL:omg.org/CORBA/completion_status:1.0"
  +                                    "completion_status"
  +                                    '#("COMPLETED_YES" "COMPLETED_NO" "COMPLETED_MAYBE")))
  +
   
   ;; Map from id to class
   (defvar *system-execption-classes* 
  
positive.code:                            (id (format nil "IDL:omg.org/CORBA/~A:1.0" namestr))
                             (sym (intern namestr :CORBA)))
                        `(progn
                           (define-condition ,sym (corba:systemexception)
                                             (#+clisp
                                              (id :initform ,id))
                             #-clisp
                             (:default-initargs
                               :id ,id))
                           (setf (gethash ,id *system-execption-classes*) ',sym) ))))))
    (define-system-exceptions
        UNKNOWN BAD_PARAM NO_MEMORY IMP_LIMIT
  
negative.code: 	      :initarg :completed
                :type CORBA::completion_status
  	      :reader system-exception-completed))
    (:report report-systemexception))
  
  (define-method minor ((obj systemexception))
    (system-exception-minor obj))
  
  (define-method completed ((obj systemexception))
    (system-exception-completed obj))
  
  (defun report-systemexception (exc stream)
    (format stream
            "Exception ~S (~A) ~A"
  	  (exception-name exc)
            (system-exception-minor exc)
            (system-exception-completed exc)))
  
  
  (macrolet
  