--- a/TestCase.st	Tue Nov 19 12:11:11 2002 +0100
+++ b/TestCase.st	Tue Nov 19 12:27:20 2002 +0100
@@ -48,7 +48,7 @@
         ^self buildSuite
 "/        | testSelectors result |
 "/
-"/        testSelectors := self sunitSelectors select: [:each | 'test*' match: each].
+"/        testSelectors := self testSelectors.
 "/        testSelectors sort.
 "/        
 "/        result := TestSuite new.
@@ -421,7 +421,7 @@
 !TestCase class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.31 2002-11-19 11:11:11 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.32 2002-11-19 11:27:20 cg Exp $'
 ! !
 
 TestCase initialize!