--- a/quickSelfTest/SelfTest.st	Mon Aug 01 10:29:52 2011 +0200
+++ b/quickSelfTest/SelfTest.st	Mon Aug 01 16:51:43 2011 +0200
@@ -18,35 +18,52 @@
 Processor activeProcess exceptionHandlerSet
     on:(Class updateChangeFileQuerySignal)
     do:[:ex | ex proceedWith:false ].
-
-Stream compile:'<< text self nextPutAll:text'.
 !
 
-Stdout << 'Selftest Started '; cr.
+Stdout showCR:'Selftest Started'.
 !
 
-Stdout <<'Loading sunit...'; cr.
+Stdout showCR:'Loading sunit...'.
 Smalltalk loadPackage:'stx:goodies/sunit'.
 !
 
-Stdout <<'Loading regression tests...'; cr.
+Stdout showCR:'Loading regression tests...'.
 Smalltalk installAutoloadedClassesFromAbbrevFile:((Smalltalk projectDirectoryForPackage:'exept:regression') asFilename / 'abbrev.stc').
 !
 
 |suite result|
 
 suite := TestSuite named:'SelfTest'.
-suite addTest:(RegressionTests::IntegerTest suite).
+"/ suite addTest:(RegressionTests::QuickTest suite).
 suite addTest:(RegressionTests::CollectionTests suite).
 suite addTest:(RegressionTests::CompilerTest suite).
 suite addTest:(RegressionTests::DelayTest suite).
 suite addTest:(RegressionTests::DictionaryTest suite).
 suite addTest:(RegressionTests::EnumerationTests suite).
 suite addTest:(RegressionTests::ExceptionTest suite).
+suite addTest:(RegressionTests::FloatTest suite).
+suite addTest:(RegressionTests::FractionTest suite).
+suite addTest:(RegressionTests::FractionTest suite).
+suite addTest:(RegressionTests::IntegerTest suite).
+suite addTest:(RegressionTests::JavaScriptTests suite).
+suite addTest:(RegressionTests::MemoryTest suite).
+suite addTest:(RegressionTests::NumberTest suite).
+suite addTest:(RegressionTests::ParserTest suite).
+suite addTest:(RegressionTests::ScaledDecimalTest suite).
+suite addTest:(RegressionTests::SemaphoreTest suite).
+suite addTest:(RegressionTests::SharedQueueTest suite).
+suite addTest:(RegressionTests::SmallIntegerTest suite).
+suite addTest:(RegressionTests::SortTests suite).
+suite addTest:(RegressionTests::StringTests suite).
+suite addTest:(RegressionTests::TimeAndDateTest suite).
+suite addTest:(RegressionTests::TimeDurationTest suite).
+suite addTest:(RegressionTests::URLTest suite).
+suite addTest:(RegressionTests::XMLCoderTests suite).
+suite addTest:(RegressionTests::ZipArchiveTests suite).
 
 result := suite
 	    runBeforeEachDo:[:test |
-		Stdout << ('running ',test printString). Stdout cr
+		Stdout showCR:('running ',test printString).
 	    ].
 TestResultReporter
     report:result