--- a/Tools__MethodList.st	Mon Oct 03 15:15:56 2016 +0100
+++ b/Tools__MethodList.st	Sun Oct 09 22:55:02 2016 +0100
@@ -1688,7 +1688,11 @@
             aMethod hasEnabledBreakpoints ifTrue:[ 
                 icn := self lineBreakPointedIcon
             ] ifFalse:[    
-                icn := self lineTracePointedIcon
+                aMethod hasEnabledTracepoints ifTrue:[ 
+                    icn := self lineTracePointedIcon
+                ] ifFalse:[    
+                    icn := self disabledBreakpointIcon
+                ]    
             ].
         ].
     ].