--- a/Tools_MethodList.st	Thu May 28 07:14:19 2009 +0200
+++ b/Tools_MethodList.st	Thu May 28 21:19:42 2009 +0200
@@ -1370,7 +1370,11 @@
         self halt:'should not happen'.
     ].
 
-    s := aMethod printStringForBrowserWithSelector:selector inClass:cls.
+    selector isNil ifTrue:[
+        s := '???'
+    ] ifFalse:[
+        s := aMethod printStringForBrowserWithSelector:selector inClass:cls.
+    ].
     showClassFirst ifTrue:[
         clsName := cls nameInBrowser.
         s := clsName , ' ' , s allBold
@@ -1575,5 +1579,5 @@
 !MethodList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodList.st,v 1.35 2009-05-28 05:14:19 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodList.st,v 1.36 2009-05-28 19:19:42 cg Exp $'
 ! !