--- a/NewSystemBrowser.st	Fri May 07 14:34:39 2010 +0200
+++ b/NewSystemBrowser.st	Fri May 07 20:08:19 2010 +0200
@@ -36106,7 +36106,7 @@
             ].
         ].
         methods do:[:eachMethod |
-            mSel := eachMethod selector.
+            mSel := eachMethod selector ? '?'.
             contractedSelector := mSel contractTo:80.
 
             item := MenuItem label:(' ' , contractedSelector , ' ').   "/ ' ' is a kludge - to allow '-' selector
@@ -36136,6 +36136,7 @@
     ^ m
 
     "Created: / 27-04-2010 / 15:05:52 / cg"
+    "Modified: / 07-05-2010 / 20:00:20 / cg"
 !
 
 operationsMenu
@@ -44409,11 +44410,11 @@
 !NewSystemBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Attic/NewSystemBrowser.st,v 1.1458 2010-05-07 12:27:55 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Attic/NewSystemBrowser.st,v 1.1459 2010-05-07 18:08:19 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Attic/NewSystemBrowser.st,v 1.1458 2010-05-07 12:27:55 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Attic/NewSystemBrowser.st,v 1.1459 2010-05-07 18:08:19 cg Exp $'
 ! !
 
 NewSystemBrowser initialize!