--- a/quickSelfTest/SelfTest.st	Wed Mar 23 17:30:09 2016 +0100
+++ b/quickSelfTest/SelfTest.st	Wed Mar 23 18:15:52 2016 +0100
@@ -28,6 +28,7 @@
 Stdout showCR:'Selftest Started'.
 !
 
+Smalltalk packagePath addFirst:'../../../..'.
 Stdout showCR:'Loading sunit...'.
 Smalltalk loadPackage:'stx:goodies/sunit'.
 self assert:(TestCase notNil and:[TestCase isLoaded]) message:'[Error]: Missing TestCase class after sunit package load'.
@@ -46,18 +47,23 @@
 Stdout showCR:'Loading regression tests...'.
 
 "To add a new test please edit exept_regression>>testCaseNamesWithoutNamespace"
-Smalltalk packagePath addFirst:'../../../..'.
 Smalltalk fileInClass:#'exept_regression' package:'exept:regression'.
 (Smalltalk at: #'exept_regression') isNil ifTrue:[
     Stdout showCR:('ERROR: Ouch - missing class: "exept_regression"').
     Smalltalk exit: 1.
 ].
+exept_regression ensureFullyLoaded.
+
 (Smalltalk at: #'exept_regression') testCaseNamesWithoutNamespace do:[:className |
     |fullName|
 
     fullName := ('RegressionTests::',className).
-    Stdout showCR:('Loading ',className,'...').
-    Smalltalk fileInClass:fullName package:'exept:regression'.
+    Stdout showCR:('  loading ',className,'...').
+    Error handle:[:ex |
+	Stdout showCR:('**** Ouch - error while loading class: "',className,'"').
+    ] do:[
+	Smalltalk fileInClass:fullName package:'exept:regression'.
+    ].
     (Smalltalk classNamed:fullName) isNil ifTrue:[
 	Stdout showCR:('**** Ouch - missing class: "',fullName,'"').
     ] ifFalse:[