--- a/Tools_MethodList.st	Sun May 24 12:32:38 2009 +0200
+++ b/Tools_MethodList.st	Thu May 28 07:14:19 2009 +0200
@@ -1460,9 +1460,11 @@
     ].
     (ChangeSet current includesChangeForClass:cls selector:selector) ifTrue:[
         mark := self class markForBeingInChangeList.
-        mark := self colorizeForChangedCode:mark.
+        "/ mark := self colorizeForChangedCode:mark.
         s := s , mark.
-        "/ s := self colorizeForChangedCode:s.
+        "/ cg: I dont know why this was disabled - it is req'd to
+        "/ see changed methods in a method list (implementors...)
+        s := self colorizeForChangedCode:s.
     ].
 
     (SmallTeam notNil and:[SmallTeam includesChangeForClass:cls selector:selector]) ifTrue:[
@@ -1573,5 +1575,5 @@
 !MethodList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodList.st,v 1.34 2009-05-01 17:37:13 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodList.st,v 1.35 2009-05-28 05:14:19 cg Exp $'
 ! !