--- a/Method.st	Tue Mar 23 19:24:46 2004 +0100
+++ b/Method.st	Mon Mar 29 18:31:05 2004 +0200
@@ -1594,7 +1594,7 @@
      Defined here to allow for browsers to deal with nonStandard pseudoMethods"
 
     |s privInfo moreInfo p i n cls currentChangeSet isInChangeSet mthdPackage
-     userPreferences|
+     userPreferences shownSelector|
 
     moreInfo := ''.
     privInfo := ''.
@@ -1651,7 +1651,7 @@
         moreInfo := privInfo , ' ' , moreInfo
     ].
 
-    s := selector.
+    s := shownSelector := (self selectorPrintStringInBrowserFor:selector).
     (cls := aClass) isNil ifTrue:[
         cls := self containingClass
     ].
@@ -1677,7 +1677,7 @@
 
     moreInfo size == 0 ifTrue:[^ s].
 
-    s := selector , moreInfo.
+    s := shownSelector , moreInfo.
 
     self isInvalid ifTrue:[
         s := s asText emphasizeAllWith:(userPreferences emphasisForObsoleteCode).
@@ -1689,6 +1689,10 @@
     "Modified: / 2.11.2001 / 09:53:16 / cg"
 !
 
+selectorPrintStringInBrowserFor:selector
+    ^ selector
+!
+
 whoString
     "return a string as className>>selector, if this is not an unbound
      method. Otherwise return 'unbound'. Used with debugging."
@@ -2913,7 +2917,7 @@
 !Method class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.271 2004-03-20 15:36:46 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.272 2004-03-29 16:31:05 cg Exp $'
 ! !
 
 Method initialize!