--- a/Method.st	Wed Oct 31 12:25:06 2001 +0100
+++ b/Method.st	Wed Oct 31 15:57:14 2001 +0100
@@ -1836,10 +1836,14 @@
     (cls := aClass) isNil ifTrue:[
         cls := self containingClass
     ].
+
+    (ChangeSet current includesChangeForClass:cls selector:selector) ifTrue:[
+        s := s asText emphasisAllAdd:(SystemBrowser emphasisForChangedCode)
+    ].
+
     (cls isNil or:[self package ~= cls package]) ifTrue:[
         p := ' [ ' , self package allItalic , ' ] '.
-        s := s , p.
-        s := s emphasisAllAdd:(SystemBrowser emphasisForDifferentPackage).
+        s := s , ' ' , (p emphasisAllAdd:(SystemBrowser emphasisForDifferentPackage)).
     ].
 
     moreInfo size == 0 ifTrue:[^ s].
@@ -1852,8 +1856,8 @@
     ^ s
 
     "Modified: / 23.1.1998 / 13:15:15 / stefan"
-    "Modified: / 31.7.1998 / 00:37:47 / cg"
     "Created: / 5.2.2000 / 22:55:56 / cg"
+    "Modified: / 31.10.2001 / 10:47:00 / cg"
 !
 
 whoString
@@ -2846,6 +2850,6 @@
 !Method class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.233 2001-10-10 16:24:54 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.234 2001-10-31 14:57:14 cg Exp $'
 ! !
 Method initialize!