--- a/quickSelfTest/SelfTest.st	Sun Jul 31 13:43:57 2011 +0200
+++ b/quickSelfTest/SelfTest.st	Sun Jul 31 14:00:49 2011 +0200
@@ -33,9 +33,13 @@
 Smalltalk installAutoloadedClassesFromAbbrevFile:((Smalltalk projectDirectoryForPackage:'exept:regression') asFilename / 'abbrev.stc').
 !
 
-|result|
+|suite result|
 
-result := RegressionTests::IntegerTest runTests.
+suite := TestSuite named:'SelfTest'.
+suite addTest:(RegressionTests::IntegerTest suite).
+suite addTest:(RegressionTests::CollectionTests suite).
+
+result := suite run.
 TestResultReporter report:result format:#xml_perfPublisher as:'testresult.xml'.
 
 "/Autoload allSubclassesDo:[:cls |