--- a/TestRunner.st	Tue Nov 05 22:29:59 2002 +0100
+++ b/TestRunner.st	Thu Nov 07 09:55:59 2002 +0100
@@ -741,7 +741,9 @@
         allCategories := (cat = '* all *').
 
         suites := TestCase allSubclasses 
-                        select:[:each | ((each isSubclassOf:TestCaseHelper) not) and:[allCategories or:[cat = each category]]]
+                        select:[:each | 
+                                true "/ "cg:TestCaseHelper is gone -->" ((each isSubclassOf:TestCaseHelper) not) 
+                                and:[allCategories or:[cat = each category]]]
                         thenCollect: [:each | each name].
         suites sort.
         ^ suites 
@@ -1122,5 +1124,5 @@
 !TestRunner class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestRunner.st,v 1.41 2002-11-05 21:29:59 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestRunner.st,v 1.42 2002-11-07 08:55:59 cg Exp $'
 ! !