--- a/Explainer.st	Thu Feb 28 14:55:49 2002 +0100
+++ b/Explainer.st	Fri Mar 01 20:14:20 2002 +0100
@@ -615,8 +615,7 @@
 or one of its ' , nSubClasses printString , ' subclasses.'
     ].
 
-    sub := aClass allSubclasses collect:[:c | c name].
-    subNames := sub collect:[:c | c theNonMetaclass name].
+    subNames := aClass allSubclasses collect:[:c | c theNonMetaclass name].
     className := aClass name.
     nSubClasses == 0 ifTrue:[
         shortText ifTrue:[
@@ -629,7 +628,7 @@
 
     shortText ifTrue:[
         nSubClasses == 1 ifTrue:[
-            ^ selfString , ' - an instance of ''' , className , ''' or ''' , sub first , '''.'
+            ^ selfString , ' - an instance of ''' , className , ''' or ''' , subNames first , '''.'
         ].
         ^ selfString , ' - an instance of ''' , className , ''' or one of its subclasses.'
     ].
@@ -639,7 +638,7 @@
 In this case, it will be an instance of ' , className , '
 or one of its subclasses:
 
-' , sub asStringCollection asString
+' , subNames asStringCollection asString
     ].
 
     ^ selfString , ' refers to the object which received the message.
@@ -848,5 +847,5 @@
 !Explainer class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Explainer.st,v 1.51 2002-02-25 19:57:27 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Explainer.st,v 1.52 2002-03-01 19:14:20 cg Exp $'
 ! !