--- a/quickSelfTest/SelfTest.st	Wed Mar 06 19:03:12 2013 +0100
+++ b/quickSelfTest/SelfTest.st	Wed Mar 20 12:25:22 2013 +0100
@@ -44,57 +44,14 @@
 suite := TestSuite named:'SelfTest'.
 
 Stdout showCR:'Loading regression tests...'.
-#(
-    "/ 'SunitXMLOutputTest'
-    'CoverageInstrumentationTest'
-    'AssociationTests'
-    'BinaryIOTests'
-    'BinaryTreeTester'
-    "/ 'BlockTest'
-    'CharacterTests'
-    'CollectionTests'
-    'CompilerTest'
-    'ComplexTest'
-    'STCCompilerTests'
-    "/ 'DebuggerTest'
-    "/ 'DeepCopyTests'
-    'DelayTest'
-    'DictionaryTest'
-    'EnumerationTests'
-    'ExceptionTest'
-    "/ 'ExternalInterfaceTests'
-    "/ 'FileOpenTest'
-    'FileStreamTest'
-    'FloatTest'
-    'FractionTest'
-    "/ 'GCTest'
-    "/ 'GraphicDrawingTest'
-    "/ 'HTMLParserTests'
-    "/ 'ImageReaderTest'
-    'IntegerTest'
-    'JavaScriptTests'
-    "/ 'MeasurementValueTests'
-    "/ 'MemoryTest'
-    'NumberTest'
-    "/ 'ParserTest'
-    'ScaledDecimalTest'
-    "/ 'SemaphoreTest'
-    "/ 'SharedQueueTest'
-    'SmallIntegerTest'
-    "/ 'SortTests'
-    'StringTests'
-    'StreamTests'
-    'TimeAndDateTest'
-    'TimeDurationTest'
-    "/ 'URLTest'
-    "/ 'XMLCoderTests'
-    "/ 'ZipArchiveTests'
-    'ClassBuilderTests'
-    'CompilerTests2'
-    'ChangeSetTests'
-    'FilenameTests'
-    
-) do:[:className |
+
+"To add a new test please edit exept_regression>>testCaseNamesWithoutNamespace"
+Smalltalk fileInClass:#'exept_regression' package:'exept:regression'.
+(Smalltalk at: #'exept_regression') isNil ifTrue:[
+    Stdout showCR:('ERROR: Ouch - missing class: "exept_regression"').
+    Smalltalk exit: 1.
+].
+(Smalltalk at: #'exept_regression') testCaseNamesWithoutNamespace do:[:className |
     |fullName|
 
     fullName := ('RegressionTests::',className).