--- a/TestSuite.st	Tue Aug 09 10:50:04 2011 +0200
+++ b/TestSuite.st	Tue Aug 09 17:08:35 2011 +0200
@@ -74,7 +74,11 @@
 
 testCount
 
-    ^tests inject:0 into:[:count :test|count + test testCount]
+    ^tests notNil ifTrue:[
+        tests inject:0 into:[:count :test|count + test testCount]
+    ] ifFalse:[
+        0
+    ]
 
     "Created: / 04-08-2011 / 13:03:16 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
@@ -204,7 +208,7 @@
 !TestSuite class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestSuite.st,v 1.27 2011-08-04 12:09:46 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestSuite.st,v 1.28 2011-08-09 15:08:35 vrany Exp $'
 !
 
 version_SVN