--- a/Tools_MethodList.st	Mon Mar 03 10:37:40 2008 +0100
+++ b/Tools_MethodList.st	Mon Mar 03 10:37:49 2008 +0100
@@ -1362,6 +1362,11 @@
             ]
         ].
     ].
+    InstrumentingCompiler notNil ifTrue:[
+        (InstrumentingCompiler isInstrumented:aMethod) ifTrue:[
+            icn := self instrumentationIcon
+        ]
+    ].
 
     icn isNil ifTrue:[
         showMethodTypeIcon value ~~ false ifTrue:[
@@ -1526,5 +1531,5 @@
 !MethodList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodList.st,v 1.27 2007-03-05 15:29:13 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodList.st,v 1.28 2008-03-03 09:37:49 cg Exp $'
 ! !