--- a/TestCase.st	Wed Mar 07 23:06:40 2018 +0100
+++ b/TestCase.st	Wed Mar 07 23:06:46 2018 +0100
@@ -126,7 +126,10 @@
 
 isTestSelector:aSelector
 
-    ^aSelector notNil and:[aSelector startsWith:'test']
+    ^aSelector notNil 
+    and:[(aSelector startsWith:'test')
+    "/ temporary hack - the callers of testCount should use countTests instead
+    and:[aSelector ~= 'testCount']]
 
     "Created: / 06-08-2006 / 11:46:17 / cg"
     "Modified: / 05-12-2009 / 18:50:57 / Jan Vrany <jan.vrany@fit.cvut.cz>"
@@ -558,7 +561,8 @@
 testCount
     "obsoleted, because all methods starting with 'test'
      are considered to be tests; so this is a bad name;
-     please use countTests"
+     please use countTests.
+     See TestCase >> isTestSelector:"
 
     ^ self countTests
 ! !