--- a/quickSelfTest/SelfTest.st	Fri Mar 04 06:56:26 2016 +0100
+++ b/quickSelfTest/SelfTest.st	Fri Mar 11 07:03:20 2016 +0100
@@ -38,7 +38,7 @@
 Smalltalk loadPackage:'stx:libjavascript'.
 !
 
-|suite result|
+|suite result debugging|
 
 Stdout showCR:'Creating suite...'.
 suite := TestSuite named:'SelfTest'.
@@ -66,12 +66,15 @@
 ].
 
 Stdout showCR:'Running suite...'.
+debugging := (Smalltalk commandLineArgumentNamed:'--debug') notNil.
 result := suite
 	    run:TestResultStX new beforeEachDo:[:test |
 		Stdout showCR:('- running ',test printString).
 	    ]
-	    afterEachDo:[:test| ]
-	    debug:(Smalltalk commandLineArgumentNamed:'--debug') notNil.
+	    afterEachDo:[:test|
+		Stdout showCR:('- done ',test printString).
+	    ]
+	    debug:debugging.
 
 Stdout showCR:'Generating report...'.
 TestResultReporter