--- a/Tools_MethodList.st	Fri Jun 14 15:17:53 2013 +0200
+++ b/Tools_MethodList.st	Fri Jun 14 16:21:52 2013 +0200
@@ -1571,7 +1571,7 @@
     ].
 
     showClassFirst ifTrue:[
-        s := aMethod printStringForBrowserWithSelector:selector allBold inClass:cls.
+        s := aMethod printStringForBrowserWithSelector:(selector ? 'unbound') allBold inClass:cls.
         s := cls nameInBrowser , ' ' , s
     ] ifFalse:[
         s := aMethod printStringForBrowserWithSelector:selector inClass:cls.
@@ -1816,10 +1816,10 @@
 !MethodList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodList.st,v 1.87 2013-04-28 13:50:58 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodList.st,v 1.88 2013-06-14 14:21:52 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodList.st,v 1.87 2013-04-28 13:50:58 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodList.st,v 1.88 2013-06-14 14:21:52 cg Exp $'
 ! !