--- a/quickSelfTest/SelfTest.st	Fri Aug 05 15:11:29 2011 +0200
+++ b/quickSelfTest/SelfTest.st	Fri Aug 05 15:12:36 2011 +0200
@@ -25,7 +25,7 @@
 
 Stdout showCR:'Loading sunit...'.
 Smalltalk loadPackage:'stx:goodies/sunit'.
-self assert:(TestCase notNil).
+self assert:(TestCase notNil and:[TestCase isLoaded]).
 
 "/ Smalltalk loadPackage:'stx:goodies/xml/vw'.
 "/ Smalltalk loadPackage:'stx:goodies/xml/stx'.