--- a/ClassDescription.st	Wed Mar 16 10:40:51 1994 +0100
+++ b/ClassDescription.st	Wed Mar 30 11:38:21 1994 +0200
@@ -22,18 +22,24 @@
 COPYRIGHT (c) 1993 by Claus Gittinger
               All Rights Reserved
 
-this class has been added for ST-80 compatibility only.
-All class stuff used to be in Behavior and Class - but, to be
-able to file in some PD code, it became nescessary to add it.
+$Header: /cvs/stx/stx/libbasic/ClassDescription.st,v 1.5 1994-03-30 09:38:03 claus Exp $
+'!
 
-Instance variables:
+!ClassDescription class methodsFor:'documentation'!
 
-name            <String>        the classes name
-category        <String>        the classes category
-instvars        <String>        the names of the instance variables
+documentation
+"
+    this class has been added for ST-80 compatibility only.
+    All class stuff used to be in Behavior and Class - but, to be
+    able to file in some PD code, it became nescessary to add it.
 
-$Header: /cvs/stx/stx/libbasic/ClassDescription.st,v 1.4 1993-11-08 02:29:45 claus Exp $
-'!
+    Instance variables:
+
+    name            <String>        the classes name
+    category        <String>        the classes category
+    instvars        <String>        the names of the instance variables
+"
+! !
 
 !ClassDescription methodsFor:'accessing'!
 
@@ -112,6 +118,18 @@
     Smalltalk at:(newName asSymbol) put:self.
 ! !
 
+!ClassDescription methodsFor:'printing'!
+
+displayString
+    "return a string for display in inspoectors"
+
+    category == #obsolete ifTrue:[
+        "add obsolete - to make life easier ..."
+        ^ super displayString , ' (obsolete)'
+    ].
+    ^ super displayString
+! !
+
 !ClassDescription methodsFor:'private'!
 
 addAllInstVarNamesTo:aCollection