--- a/Tools__TestRunner2.st	Thu Jul 25 12:18:35 2013 +0100
+++ b/Tools__TestRunner2.st	Thu Jul 25 12:49:27 2013 +0100
@@ -1395,9 +1395,11 @@
 !
 
 runSuite: aTestSuite keepFailures: keepFailures keepErrors: keepErrors debug:doDebug
-    | testResult testCases |
-
-    self withWaitCursorDo:[
+    | testResult testCases blocker |
+
+    blocker := Semaphore new.
+
+    [
         testResult := TestResult defaultResultClass new.
         testCases := Set new.
         aTestSuite
@@ -1411,6 +1413,10 @@
             debug:doDebug.
 
         self displayResult: testResult keepFailures: keepFailures keepErrors: keepErrors.
+        blocker signal.
+    ] forkAt: Processor userBackgroundPriority .
+    self withWaitCursorDo:[
+        blocker wait.
     ].
     ^testResult
 
@@ -1418,8 +1424,8 @@
     "Created: / 06-06-2008 / 09:11:57 / Jan Vrany <vranyj1@fel.cvut.cz>"
     "Modified: / 06-06-2008 / 19:40:53 / Jan Vrany <vranyj1@fel.cvut.cz>"
     "Modified: / 04-07-2011 / 23:06:23 / cg"
-    "Modified: / 20-08-2011 / 13:58:11 / Jan Vrany <jan.vrany@fit.cvut.cz>"
     "Created: / 21-08-2011 / 17:51:42 / cg"
+    "Modified: / 25-07-2013 / 12:47:35 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !TestRunner2 methodsFor:'actions - menu'!