--- a/TestRunner.st	Thu Jan 11 15:39:25 2001 +0100
+++ b/TestRunner.st	Thu Jan 11 17:00:24 2001 +0100
@@ -493,8 +493,12 @@
         |numTests|
 
         numTests := 0.
-        aTestSuite tests do:[:eachTest |
-            numTests := numTests + eachTest tests size.
+        aTestSuite tests do:[:eachTestOrSubSuite |
+            (eachTestOrSubSuite isKindOf:TestSuite) ifTrue:[
+                numTests := numTests + eachTestOrSubSuite tests size.
+            ] ifFalse:[
+                numTests := numTests + 1.
+            ]
         ].
         numberOfTestsToRun := numTests.
         self percentageDone value:0.
@@ -734,5 +738,5 @@
 !TestRunner class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestRunner.st,v 1.10 2001-01-11 14:39:25 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestRunner.st,v 1.11 2001-01-11 16:00:24 cg Exp $'
 ! !