--- a/quickSelfTest/SelfTest.st	Fri Feb 03 14:21:05 2012 +0100
+++ b/quickSelfTest/SelfTest.st	Tue Apr 17 20:45:32 2012 +0200
@@ -1,8 +1,9 @@
 "/
-"/ runs a nnumber of tests from the exept:regression package (see list below)
+"/ runs a number of tests from the exept:regression package (see list below)
 "/ execute this script using the following command line:
 "/
 "/ stx --noBanner -I --execute SelfTest.st
+"/   use --debug to debug failed test cases.
 "/
 "/ to use with jenkins (+ jUnit plugin):
 "/ use the following buildscript (in jenkins):
@@ -33,6 +34,7 @@
 
 "/ Smalltalk loadPackage:'stx:goodies/xml/vw'.
 "/ Smalltalk loadPackage:'stx:goodies/xml/stx'.
+Smalltalk loadPackage:'stx:libcompat'.
 Smalltalk loadPackage:'stx:libjavascript'.
 !
 
@@ -97,9 +99,11 @@
 
 Stdout showCR:'Running suite...'.
 result := suite
-	    runBeforeEachDo:[:test |
+	    run:TestResult new beforeEachDo:[:test |
 		Stdout showCR:('- running ',test printString).
-	    ].
+	    ]
+	    afterEachDo:[:test| ]
+	    debug:(Smalltalk commandLineArgumentNamed:'--debug') notNil.
 
 Stdout showCR:'Generating report...'.
 TestResultReporter