--- a/Tools_MethodList.st	Tue Apr 27 11:59:24 2010 +0200
+++ b/Tools_MethodList.st	Tue Apr 27 14:26:01 2010 +0200
@@ -1406,11 +1406,6 @@
             ]
         ].
     ].
-    InstrumentingCompiler notNil ifTrue:[
-        (InstrumentingCompiler isInstrumented:aMethod) ifTrue:[
-            icn := self instrumentationIcon
-        ]
-    ].
 
     icn isNil ifTrue:[
         self showImageResourceMethodsImages value ~~ false ifTrue:[
@@ -1508,6 +1503,19 @@
         ]
     ].
 
+    aMethod isInstrumented ifTrue:[
+        aMethod hasBeenCalled ifTrue:[
+            aMethod haveAllBlocksBeenExecuted ifTrue:[
+                s := self colorizeForInstrumentedFullyCoveredCode:s.
+            ] ifFalse:[
+                s := self colorizeForInstrumentedPartiallyCoveredCode:s.
+            ].
+        ] ifFalse:[
+            s := self colorizeForInstrumentedNeverCalledCode:s.
+        ].
+        "/ icn := self instrumentationIcon
+    ].
+
     (showMethodComplexity value == true 
     and:[ OOM::MethodMetrics notNil ]) ifTrue:[
         icn isNil ifTrue:[
@@ -1537,7 +1545,7 @@
     ^ s
 
     "Created: / 22-10-1996 / 19:51:00 / cg"
-    "Modified: / 10-11-2006 / 17:51:30 / cg"
+    "Modified: / 27-04-2010 / 14:25:45 / cg"
 ! !
 
 !MethodList methodsFor:'private-watching'!
@@ -1587,9 +1595,9 @@
 !MethodList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodList.st,v 1.41 2010-04-25 12:34:59 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodList.st,v 1.42 2010-04-27 12:26:01 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodList.st,v 1.41 2010-04-25 12:34:59 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodList.st,v 1.42 2010-04-27 12:26:01 cg Exp $'
 ! !