--- a/TestSuite.st	Thu Nov 24 12:51:24 2011 +0100
+++ b/TestSuite.st	Mon Jan 16 14:07:16 2012 +0100
@@ -23,7 +23,10 @@
 !TestSuite methodsFor:'accessing'!
 
 addTest: aTest
-	self tests add: aTest
+        self assert:aTest notNil message:'trying to add nonexisting (nil) test'.
+        self tests add: aTest
+
+    "Modified: / 16-01-2012 / 14:07:03 / cg"
 !
 
 addTests: aCollection
@@ -233,7 +236,7 @@
 !TestSuite class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestSuite.st,v 1.29 2011-08-21 16:05:29 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestSuite.st,v 1.30 2012-01-16 13:07:16 cg Exp $'
 !
 
 version_SVN