--- a/Method.st	Mon Jan 27 13:23:41 2003 +0100
+++ b/Method.st	Mon Jan 27 14:57:48 2003 +0100
@@ -1780,7 +1780,7 @@
     "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 isInChangeSet mthdPackage|
+    |s privInfo moreInfo p i n cls currentChangeSet isInChangeSet mthdPackage|
 
     moreInfo := ''.
     privInfo := ''.
@@ -1841,18 +1841,20 @@
         cls := self containingClass
     ].
 
-    isInChangeSet := (ChangeSet current changedClasses includes:cls)
-                     and:[ ChangeSet current includesChangeForClass:cls selector:selector ].
+    currentChangeSet := ChangeSet current.
+    isInChangeSet := (currentChangeSet changedClasses includes:cls)
+                     and:[ currentChangeSet includesChangeForClass:cls selector:selector ].
+
     isInChangeSet ifTrue:[
-        s := s asText emphasisAllAdd:(SystemBrowser emphasisForChangedCode)
+        s := s asText emphasisAllAdd:(UserPreferences current emphasisForChangedCode)
     ].
 
     (cls isNil or:[(mthdPackage := self package) ~= cls package]) ifTrue:[
         mthdPackage ~= Project defaultProject package ifTrue:[
             p := ' [ ' , (mthdPackage ? '???') allItalic , ' ] '.
-            p := p asText emphasisAllAdd:(SystemBrowser emphasisForDifferentPackage).
+            p := p asText emphasisAllAdd:(UserPreferences current emphasisForDifferentPackage).
             isInChangeSet ifFalse:[
-                s := s asText emphasisAllAdd:(SystemBrowser emphasisForDifferentPackage).
+                s := s asText emphasisAllAdd:(UserPreferences current emphasisForDifferentPackage).
             ].
             s := s , ' ' , p
         ].
@@ -1863,7 +1865,7 @@
     s := selector , moreInfo.
 
     self isInvalid ifTrue:[
-        s := s asText emphasizeAllWith:(SystemBrowser emphasisForObsoleteCode).
+        s := s asText emphasizeAllWith:(UserPreferences current emphasisForObsoleteCode).
     ].
     ^ s
 
@@ -2881,7 +2883,7 @@
 !Method class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.245 2003-01-17 21:06:57 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.246 2003-01-27 13:57:48 cg Exp $'
 ! !
 
 Method initialize!