--- a/Tools__TestRunnerEmbedded.st	Fri Dec 19 20:11:24 2014 +0100
+++ b/Tools__TestRunnerEmbedded.st	Sun Dec 21 17:06:40 2014 +0100
@@ -185,25 +185,18 @@
             invalidateSuiteAndResult; "/ updateTestSuiteAndResult;
             updateVisibility.
         self hasTestCaseSelected ifTrue:[
-            self enqueueDelayedAction:[ self updateTestCases; updateSuiteAndResult ].
+            self enqueueMessage:#updateTestCases for:self arguments:#().
+            self enqueueMessage:#updateSuiteAndResult for:self arguments:#().
+            "/ self enqueueDelayedAction:[ self updateTestCases; updateSuiteAndResult ].
         ].
          ^ self.
     ].
     self hasTestCaseSelected ifTrue:[
-        sender == selectedProtocolsHolder ifTrue:[
+        (sender == selectedProtocolsHolder 
+        or:[ sender == selectedMethodsHolder 
+        or:[ sender == methodGeneratorHolder ]]) ifTrue:[
             self invalidateSuiteAndResult. 
-            self enqueueDelayedAction:[ self updateSuiteAndResult ].
-            ^self
-        ].
-
-        sender == selectedMethodsHolder ifTrue:[
-            self invalidateSuiteAndResult. 
-            self enqueueDelayedAction:[ self updateSuiteAndResult ].
-            ^self
-        ].
-        sender == methodGeneratorHolder ifTrue:[
-            self invalidateSuiteAndResult. 
-            self enqueueDelayedAction:[ self updateSuiteAndResult ].
+            self enqueueMessage:#updateSuiteAndResult for:self arguments:#().
             ^self
         ].
 
@@ -212,7 +205,7 @@
                 allTestCases notNil ifTrue:[
                     (allTestCases includesIdentical: param first) ifTrue:[
                         self invalidateSuiteAndResult. "/ updateTestSuiteAndResult.
-                        self enqueueDelayedAction:[ self updateSuiteAndResult ].
+                        self enqueueMessage:#updateSuiteAndResult for:self arguments:#().
                         ^self        
                     ]
                 ].
@@ -338,10 +331,10 @@
 !TestRunnerEmbedded class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__TestRunnerEmbedded.st,v 1.41 2014-09-23 11:14:58 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__TestRunnerEmbedded.st,v 1.42 2014-12-21 16:06:40 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__TestRunnerEmbedded.st,v 1.41 2014-09-23 11:14:58 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__TestRunnerEmbedded.st,v 1.42 2014-12-21 16:06:40 cg Exp $'
 ! !