--- a/ClassDescription.st	Tue Jul 27 12:05:27 2004 +0200
+++ b/ClassDescription.st	Tue Aug 03 12:15:03 2004 +0200
@@ -2600,20 +2600,23 @@
 
     (cat = 'obsolete'
     or:[cat = '* obsolete *']) ifTrue:[
-	"add obsolete - to make life easier ..."
-	more := ' (obsolete)'
+        "add obsolete - to make life easier ..."
+        more := ' (obsolete)'
     ].
     (cat = 'removed'
     or:[cat = '* removed *']) ifTrue:[
-	"add removed - to make life easier ..."
-	more := ' (removed)'
+        "add removed - to make life easier ..."
+        more := ' (removed)'
+    ].
+    self isLoaded ifFalse:[
+        more := ' (autoloaded)'
     ].
 
     self isPrivate ifTrue:[
-	nm := self nameWithoutPrefix.
-	more := ' (private in ' , self owningClass name , ')'.
+        nm := self nameWithoutPrefix.
+        more := ' (private in ' , self owningClass name , ')'.
     ] ifFalse:[
-	nm := self name.
+        nm := self name.
     ].
     more isNil ifTrue:[^ nm].
     ^ nm , more
@@ -3892,7 +3895,7 @@
 !ClassDescription class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ClassDescription.st,v 1.173 2004-06-30 15:22:18 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ClassDescription.st,v 1.174 2004-08-03 10:15:03 cg Exp $'
 ! !
 
 ClassDescription initialize!