--- a/TestCase.st	Tue Sep 15 16:28:00 2009 +0200
+++ b/TestCase.st	Fri Sep 18 11:09:23 2009 +0200
@@ -79,9 +79,11 @@
 
 isTestSelector:aSelector
 
-        ^ 'test*' match: aSelector
+    ^aSelector ~= #testName 
+        and:[aSelector startsWith: 'test']
 
     "Created: / 06-08-2006 / 11:46:17 / cg"
+    "Modified: / 19-08-2009 / 14:42:58 / Jan Vrany <vranyj1@fel.cvut.cz>"
 !
 
 lastTestRunResultOrNil
@@ -766,7 +768,7 @@
 !TestCase class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.49 2009-01-16 10:57:20 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.50 2009-09-18 09:09:23 fm Exp $'
 ! !
 
 TestCase initialize!