--- a/Tools__TestRunnerEmbedded.st	Tue Aug 20 15:57:26 2013 +0200
+++ b/Tools__TestRunnerEmbedded.st	Wed Aug 21 02:25:21 2013 +0200
@@ -1065,8 +1065,9 @@
         suite := TestSuite named: (self suiteNameFromProtocols: protocols).
         (self selectedTestMethodsFromProtocols: protocols inClass:selectedClass) do:[:mthd| 
             | class selector |
-            class := selectedClass ifNil:[mthd mclass].           
-            suite addTest: (mthd mclass asTestCase selector: mthd selector)
+            class := selectedClass ifNil:[mthd mclass].
+
+            suite addTest: (class "mthd mclass" asTestCase selector: mthd selector)
         ].
         ^suite
     ].
@@ -1264,14 +1265,14 @@
 !TestRunnerEmbedded class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__TestRunnerEmbedded.st,v 1.35 2013-06-06 14:54:57 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__TestRunnerEmbedded.st,v 1.36 2013-08-21 00:25:21 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__TestRunnerEmbedded.st,v 1.35 2013-06-06 14:54:57 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__TestRunnerEmbedded.st,v 1.36 2013-08-21 00:25:21 cg Exp $'
 !
 
 version_SVN
-    ^ '$Id: Tools__TestRunnerEmbedded.st,v 1.35 2013-06-06 14:54:57 cg Exp $'
+    ^ '$Id: Tools__TestRunnerEmbedded.st,v 1.36 2013-08-21 00:25:21 cg Exp $'
 ! !