--- a/Tools__MethodList.st	Fri Feb 20 16:37:15 2015 +0100
+++ b/Tools__MethodList.st	Fri Feb 20 22:44:39 2015 +0100
@@ -1296,9 +1296,10 @@
                 mclass := theMethod mclass.
             ].
         ].
-        self methodLabelHolder value:(mclass isNil
+        self methodLabelHolder 
+                value:(mclass isNil
                     ifTrue:[ ('???' , ' ' , '???') ]
-                    ifFalse:[ (mclass name , ' ' , theMethod selector) ])
+                    ifFalse:[ (mclass name ? '*unnamed*'), ' ' , (theMethod selector asString) ])
     ].
 "/    anyMethodToWatch ifTrue:[
 "/        self startWatchProcess.
@@ -1730,7 +1731,7 @@
         ].
     ].
     icn isNil ifTrue:[
-        (selector startsWith:'test') ifTrue:[
+        (selector isSymbol and:[selector startsWith:'test']) ifTrue:[
             ((cls isSubclassOf:TestCase)
             and:[cls isAbstract not]) ifTrue:[
                 "JV@2011-11-17: Show thumbs even if not all test were run"
@@ -1911,10 +1912,10 @@
 !MethodList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__MethodList.st,v 1.115 2015-02-19 12:31:01 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__MethodList.st,v 1.116 2015-02-20 21:44:39 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__MethodList.st,v 1.115 2015-02-19 12:31:01 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__MethodList.st,v 1.116 2015-02-20 21:44:39 cg Exp $'
 ! !