--- a/Tools__TestRunnerEmbedded.st	Sun Nov 20 09:42:38 2011 +0100
+++ b/Tools__TestRunnerEmbedded.st	Sun Nov 20 12:43:14 2011 +0100
@@ -686,7 +686,7 @@
 
     sender == Smalltalk ifTrue:[
         aspect == #lastTestRunResult ifTrue:[
-            (selectedTestCases includesIdentical: param first) ifTrue:[
+            (selectedTestCases notNil and:[selectedTestCases includesIdentical: param first]) ifTrue:[
                 self updateTestSuiteAndResult.
                 ^self        
             ]
@@ -697,7 +697,7 @@
 
     super update:aspect with:param from: sender
 
-    "Modified: / 17-11-2011 / 20:59:26 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 20-11-2011 / 12:40:07 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 updateTestCases
@@ -998,11 +998,11 @@
 !TestRunnerEmbedded class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__TestRunnerEmbedded.st,v 1.20 2011-11-17 20:06:49 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__TestRunnerEmbedded.st,v 1.21 2011-11-20 11:43:14 vrany Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__TestRunnerEmbedded.st,v 1.20 2011-11-17 20:06:49 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__TestRunnerEmbedded.st,v 1.21 2011-11-20 11:43:14 vrany Exp $'
 !
 
 version_SVN