diff -r d4236ec280a6 -r edd7fc34e104 ClassDescription.st
--- a/ClassDescription.st	Mon Oct 10 01:20:00 1994 +0100
+++ b/ClassDescription.st	Mon Oct 10 01:22:47 1994 +0100
@@ -1,6 +1,6 @@
 "
  COPYRIGHT (c) 1993 by Claus Gittinger
-              All Rights Reserved
+	      All Rights Reserved
 
  This software is furnished under a license and may be used
  only in accordance with the terms of that license and with the
@@ -19,9 +19,9 @@
 
 ClassDescription comment:'
 COPYRIGHT (c) 1993 by Claus Gittinger
-              All Rights Reserved
+	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libbasic/ClassDescription.st,v 1.8 1994-08-05 00:54:15 claus Exp $
+$Header: /cvs/stx/stx/libbasic/ClassDescription.st,v 1.9 1994-10-10 00:22:34 claus Exp $
 '!
 
 !ClassDescription class methodsFor:'documentation'!
@@ -29,7 +29,7 @@
 copyright
 "
  COPYRIGHT (c) 1993 by Claus Gittinger
-              All Rights Reserved
+	      All Rights Reserved
 
  This software is furnished under a license and may be used
  only in accordance with the terms of that license and with the
@@ -42,7 +42,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libbasic/ClassDescription.st,v 1.8 1994-08-05 00:54:15 claus Exp $
+$Header: /cvs/stx/stx/libbasic/ClassDescription.st,v 1.9 1994-10-10 00:22:34 claus Exp $
 "
 !
 
@@ -107,7 +107,7 @@
     "return a collection of the instance variable name-strings"
 
     instvars isNil ifTrue:[
-        ^ OrderedCollection new
+	^ OrderedCollection new
     ].
     ^ instvars asCollectionOfWords
 
@@ -176,12 +176,12 @@
 
     nameKey := 0.
     self allInstVarNames do:[:name |
-        nameKey := nameKey bitShift:1.
-        (nameKey bitAnd:16r10000) ~~ 0 ifTrue:[
-            nameKey := nameKey bitXor:1.
-            nameKey := nameKey bitAnd:16rFFFF.
-        ].
-        nameKey := (nameKey + (name at:1) asciiValue) bitAnd:16rFFFF.
+	nameKey := nameKey bitShift:1.
+	(nameKey bitAnd:16r10000) ~~ 0 ifTrue:[
+	    nameKey := nameKey bitXor:1.
+	    nameKey := nameKey bitAnd:16rFFFF.
+	].
+	nameKey := (nameKey + (name at:1) asciiValue) bitAnd:16rFFFF.
     ].
     value := value + (nameKey bitShift:14).
     signature := value.
@@ -262,10 +262,14 @@
     "return a string for display in inspoectors"
 
     category == #obsolete ifTrue:[
-        "add obsolete - to make life easier ..."
-        ^ super displayString , ' (obsolete)'
+	"add obsolete - to make life easier ..."
+	^ self name "super displayString" , ' (obsolete)'
     ].
-    ^ super displayString
+    category == #removed ifTrue:[
+	"add removed - to make life easier ..."
+	^ self name "super displayString" , ' (removed)'
+    ].
+    ^ self name "super displayString"
 ! !
 
 !ClassDescription methodsFor:'private'!
@@ -275,10 +279,10 @@
      of all superclasses to the argument, aCollection. Return aCollection"
 
     (superclass notNil) ifTrue:[
-        superclass addAllInstVarNamesTo:aCollection
+	superclass addAllInstVarNamesTo:aCollection
     ].
     instvars notNil ifTrue:[
-        aCollection addAll:(instvars asCollectionOfWords).
+	aCollection addAll:(instvars asCollectionOfWords).
     ].
     ^ aCollection
 ! !