anchor.diff:  
   (defmethod generate-ifr-description ((tc null) symbol)
     ;; For Contained that hasn't got a TypeCode: 
  -  ;;  InterfaceDef, ModuleDef, OperationDef, AttributeDef
  +  ;;  ModuleDef, OperationDef, AttributeDef
     (multiple-value-bind (indicator value)
                          (get-properties (symbol-plist symbol) '(ifr-result ifr-type))
       (case indicator
  
positive.code: 
  
  |#
  
negative.code:        (CORBA:OperationDescription
          :id (symbol-ifr-id symbol)
          :name (get symbol 'ifr-name)
          :version (ifr-version symbol)
          :defined_in (symbol-ifr-parent-id symbol)
          :result value
          :mode (get symbol 'ifr-mode)
  