--- a/Tools__TestRunnerEmbedded.st	Tue Aug 02 10:24:50 2011 +0200
+++ b/Tools__TestRunnerEmbedded.st	Tue Aug 02 18:18:08 2011 +0200
@@ -271,12 +271,13 @@
 
     ^ (self selectedMethodsHolder value ? #()) select:
             [:mthd | | cls |
-            cls := selectedClass ifNil:[mthd mclass].
+            (cls := selectedClass) isNil ifTrue:[cls := mthd mclass].
             (self isTestCaseLike:selectedClass) 
                 and:[ selectedClass isTestSelector:mthd selector ] ]
 
     "Created: / 15-03-2010 / 13:21:25 / Jan Vrany <jan.vrany@fit.cvut.cz>"
     "Modified: / 22-07-2011 / 15:46:44 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 02-08-2011 / 17:46:38 / cg"
 !
 
 selectedTestMethodsFromProtocols:protocols 
@@ -992,7 +993,7 @@
 !TestRunnerEmbedded class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__TestRunnerEmbedded.st,v 1.10 2011-07-22 14:58:59 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__TestRunnerEmbedded.st,v 1.11 2011-08-02 16:18:08 cg Exp $'
 !
 
 version_SVN