--- a/Tools__TestRunnerEmbedded.st	Tue Oct 23 11:37:50 2012 +0100
+++ b/Tools__TestRunnerEmbedded.st	Fri Nov 02 11:23:31 2012 +0000
@@ -978,12 +978,13 @@
 !
 
 suiteForRun
-    | methods protocols suite selectedClass |
+    | methods testMethods protocols suite selectedClass |
 
     selectedClass := self theSingleTestCase.
     (methods := selectedMethodsHolder value) notEmptyOrNil ifTrue:[
-        suite := TestSuite named: (self suiteNameFromMethods: methods).
-        self selectedTestMethods do:[:mthd| 
+        testMethods := self selectedTestMethods.
+        suite := TestSuite named: (self suiteNameFromMethods: testMethods).
+        testMethods do:[:mthd| 
             | class selector |
             class := selectedClass ifNil:[mthd mclass].
             suite addTest: (class asTestCase selector: mthd selector)
@@ -1004,8 +1005,8 @@
     ^self suiteForRunAll
 
     "Created: / 15-03-2010 / 13:13:18 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-    "Modified: / 22-07-2011 / 15:48:33 / Jan Vrany <jan.vrany@fit.cvut.cz>"
     "Modified: / 04-08-2011 / 19:06:42 / cg"
+    "Modified: / 02-11-2012 / 11:17:35 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 suiteForRunAll
@@ -1160,7 +1161,7 @@
 !TestRunnerEmbedded class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__TestRunnerEmbedded.st,v 1.29 2012/07/18 08:56:46 vrany Exp $'
+    ^ '$Id: Tools__TestRunnerEmbedded.st 8068 2012-11-02 11:23:31Z vranyj1 $'
 !
 
 version_CVS
@@ -1168,5 +1169,5 @@
 !
 
 version_SVN
-    ^ '$Id: Tools__TestRunnerEmbedded.st 8018 2012-07-18 17:00:57Z vranyj1 $'
+    ^ '$Id: Tools__TestRunnerEmbedded.st 8068 2012-11-02 11:23:31Z vranyj1 $'
 ! !