# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1351119497 -7200
# Node ID 51749adb285fc748b818d90055afb6ceaf9caea0
# Parent  72ef7e71eda071a00ab3dab9f44b1886dc5a356d
*** empty log message ***

diff -r 72ef7e71eda0 -r 51749adb285f quickSelfTest/SelfTest.st
--- 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...'.