--- a/Method.st	Fri Nov 02 10:46:43 2001 +0100
+++ b/Method.st	Mon Nov 05 10:49:44 2001 +0100
@@ -1776,7 +1776,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|
+    |s privInfo moreInfo p i n cls isInChangeSet|
 
     moreInfo := ''.
     privInfo := ''.
@@ -1837,13 +1837,18 @@
         cls := self containingClass
     ].
 
-    (ChangeSet current includesChangeForClass:cls selector:selector) ifTrue:[
+    isInChangeSet := ChangeSet current includesChangeForClass:cls selector:selector.
+    isInChangeSet ifTrue:[
         s := s asText emphasisAllAdd:(SystemBrowser emphasisForChangedCode)
     ].
 
     (cls isNil or:[self package ~= cls package]) ifTrue:[
         p := ' [ ' , self package allItalic , ' ] '.
-        s := s , ' ' , (p emphasisAllAdd:(SystemBrowser emphasisForDifferentPackage)).
+        p := p asText emphasisAllAdd:(SystemBrowser emphasisForDifferentPackage).
+        isInChangeSet ifFalse:[
+            s := s asText emphasisAllAdd:(SystemBrowser emphasisForDifferentPackage).
+        ].
+        s := s , ' ' , p
     ].
 
     moreInfo size == 0 ifTrue:[^ s].
@@ -1857,7 +1862,7 @@
 
     "Modified: / 23.1.1998 / 13:15:15 / stefan"
     "Created: / 5.2.2000 / 22:55:56 / cg"
-    "Modified: / 31.10.2001 / 10:47:00 / cg"
+    "Modified: / 2.11.2001 / 09:53:16 / cg"
 !
 
 whoString
@@ -2850,6 +2855,6 @@
 !Method class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.234 2001-10-31 14:57:14 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.235 2001-11-05 09:49:44 cg Exp $'
 ! !
 Method initialize!