--- a/Tools_MethodList.st	Sat Jun 22 03:25:30 2013 +0000
+++ b/Tools_MethodList.st	Sun Jun 23 10:25:47 2013 +0200
@@ -1686,7 +1686,8 @@
             "/     icn := self instrumentationIcon
             "/ ].
         ].
-    ] ifFalse:[
+    ].
+    clr isNil ifTrue:[
         (ChangeSet current includesChangeForClass:cls selector:selector) ifTrue:[
             mark := self class markForBeingInChangeList.
             "/ mark := self colorizeForChangedCode:mark.
@@ -1695,7 +1696,6 @@
             "/ see changed methods in a method list (implementors...)
             s := self colorizeForChangedCode:s.
         ].
-
         (SmallTeam notNil and:[SmallTeam includesChangeForClass:cls selector:selector]) ifTrue:[
             s := (self colorizeForChangedCodeInSmallTeam:'!! '),s
         ].
@@ -1816,10 +1816,10 @@
 !MethodList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodList.st,v 1.88 2013-06-14 14:21:52 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodList.st,v 1.89 2013-06-23 08:25:47 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodList.st,v 1.88 2013-06-14 14:21:52 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodList.st,v 1.89 2013-06-23 08:25:47 cg Exp $'
 ! !