--- a/quickSelfTest/SelfTest.st	Wed Oct 24 20:58:05 2012 +0200
+++ b/quickSelfTest/SelfTest.st	Thu Oct 25 00:58:17 2012 +0200
@@ -95,7 +95,11 @@
     fullName := ('RegressionTests::',className).
     Stdout showCR:('Loading ',className,'...').
     Smalltalk fileInClass:fullName package:'exept:regression'.
-    suite addTest:(Smalltalk classNamed:fullName) suite.
+    (Smalltalk classNamed:fullName) isNil ifTrue:[
+	Stdout showCR:('**** Ouch - missing class: "',fullName,'"').
+    ] ifFalse:[
+	suite addTest:(Smalltalk classNamed:fullName) suite.
+    ]
 ].
 
 Stdout showCR:'Running suite...'.