--- a/SelfTestRunner.st	Fri Nov 02 10:09:10 2012 +0100
+++ b/SelfTestRunner.st	Fri Nov 02 11:37:40 2012 +0100
@@ -16,22 +16,33 @@
 "/
 
 "/ tell the system, where stx is...
-ParserFlags initializeSTCFlagsForTopDirectory:'../../..'.
+ParserFlags initializeSTCFlagsForTopDirectory:'..\..\stx'.
 
 Object infoPrinting:false.
 ObjectMemory infoPrinting:false.
+!
 
-Stdout showCR:'Loading sunit...'.
+Stdout showCR:'Loading required packages...'.
 Smalltalk loadPackage:'stx:goodies/sunit'.
 self assert:(TestCase notNil and:[TestCase isLoaded]).
-
-"/ Smalltalk loadPackage:'stx:goodies/xml/vw'.
-"/ Smalltalk loadPackage:'stx:goodies/xml/stx'.
 Smalltalk loadPackage:'stx:libcompat'.
 Smalltalk loadPackage:'stx:libjavascript'.
+!
 
-Smalltalk fileInClass:'RegressionTests::QuickTestRunner' package:'exept:regression'.
+Stdout showCR:'Loading RegressionTests::QuickTestRunner...'.
+(Smalltalk fileInClass:'RegressionTests::QuickTestRunner' package:'exept:regression')
+notNil ifFalse:[
+    Stderr showCR:'failed to load RegressionTests::QuickTestRunner.'.
+    Smalltalk exit:1.
+].
+(Smalltalk classNamed:'RegressionTests::QuickTestRunner') isNil ifTrue:[
+    Stderr showCR:'failed to load RegressionTests::QuickTestRunner.'.
+    Smalltalk exit:1.
+].
+!
 
 Stdout showCR:'Running QuickTestRunner suite...'.
+!
+
 RegressionTests::QuickTestRunner start.
 Smalltalk exit:0.

--- a/runSelfTest.bat	Fri Nov 02 10:09:10 2012 +0100
+++ b/runSelfTest.bat	Fri Nov 02 11:37:40 2012 +0100
@@ -1,3 +1,4 @@
 @REM use --debug as arg to debug failed test cases
 
-..\..\stx\projects\smalltalk\stx --noInfoPrint --noBanner --exitOnInternalError --exitOnMessageSendError -I --execute SelfTestRunner.st
+..\..\stx\projects\smalltalk\stx --debug --noBanner -I --execute SelfTestRunner.st
+@REM ..\..\stx\projects\smalltalk\stx --debug --noInfoPrint --noBanner --exitOnInternalError --exitOnMessageSendError -I --execute SelfTestRunner.st