--- a/Tools__TestRunnerMini.st	Wed Mar 07 17:25:36 2018 +0100
+++ b/Tools__TestRunnerMini.st	Wed Mar 07 17:25:53 2018 +0100
@@ -804,7 +804,7 @@
     ^ BlockValue 
         with:[:model | 
             model notNil
-            and:[ model testCount == 1 
+            and:[ model countTests == 1 
             and:[ model hasFailuresOrErrors ]]
         ]
         argument:resultHolder
@@ -928,7 +928,7 @@
 
             running not
             and:[ result notNil 
-            and:[ result testCount > 0 ]]
+            and:[ result countTests > 0 ]]
         ]
         argument: self resultHolder
         argument: self runningHolder
@@ -1223,7 +1223,7 @@
 color
     |numTests numRun|
 
-    self testCount > 0 ifTrue:[
+    self countTests > 0 ifTrue:[
         result notNil ifTrue:[
             self hasErrors ifTrue:[^AbstractTestRunner errorColor].
             self hasFailures ifTrue:[^AbstractTestRunner failedColor].
@@ -1243,6 +1243,13 @@
     "Modified: / 23-09-2014 / 10:04:52 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
+countTests
+
+    ^suite tests size
+
+    "Created: / 15-03-2010 / 15:44:58 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
 info
     |numTests numRun|
 
@@ -1306,13 +1313,6 @@
     ^suiteForRun
 
     "Created: / 22-08-2011 / 09:56:24 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-!
-
-testCount
-
-    ^suite tests size
-
-    "Created: / 15-03-2010 / 15:44:58 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !TestRunnerMini::SuiteAndResult methodsFor:'queries'!