--- a/Method.st	Thu Nov 20 11:21:20 2003 +0100
+++ b/Method.st	Thu Nov 20 11:24:44 2003 +0100
@@ -1781,10 +1781,12 @@
     "return a printString to represent myself to the user in a browser.
      Defined here to allow for browsers to deal with nonStandard pseudoMethods"
 
-    |s privInfo moreInfo p i n cls currentChangeSet isInChangeSet mthdPackage|
+    |s privInfo moreInfo p i n cls currentChangeSet isInChangeSet mthdPackage
+     userPreferences|
 
     moreInfo := ''.
     privInfo := ''.
+    userPreferences := UserPreferences current.
 
     self isWrapped ifTrue:[
         (MessageTracer isCounting:self) ifTrue:[
@@ -1847,16 +1849,16 @@
                      and:[ currentChangeSet includesChangeForClass:cls selector:selector ].
 
     isInChangeSet ifTrue:[
-        s := s asText emphasisAllAdd:(UserPreferences current emphasisForChangedCode)
+        s := s asText emphasisAllAdd:(userPreferences emphasisForChangedCode)
     ].
 
     (cls isNil or:[(mthdPackage := self package) ~= cls package]) ifTrue:[
         mthdPackage ~= Project defaultProject package ifTrue:[
             p := ' [ ' , (mthdPackage ? '???') allItalic , ' ] '.
-            p := p asText emphasisAllAdd:(UserPreferences current emphasisForDifferentPackage).
-            isInChangeSet ifFalse:[
-                s := s asText emphasisAllAdd:(UserPreferences current emphasisForDifferentPackage).
-            ].
+            p := p asText emphasisAllAdd:(userPreferences emphasisForDifferentPackage).
+"/            isInChangeSet ifFalse:[
+"/                s := s asText emphasisAllAdd:(userPreferences emphasisForDifferentPackage).
+"/            ].
             s := s , ' ' , p
         ].
     ].
@@ -1866,7 +1868,7 @@
     s := selector , moreInfo.
 
     self isInvalid ifTrue:[
-        s := s asText emphasizeAllWith:(UserPreferences current emphasisForObsoleteCode).
+        s := s asText emphasizeAllWith:(userPreferences emphasisForObsoleteCode).
     ].
     ^ s
 
@@ -2894,7 +2896,7 @@
 !Method class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.260 2003-10-24 08:49:06 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.261 2003-11-20 10:24:44 cg Exp $'
 ! !
 
 Method initialize!