--- a/Tools__MethodList.st	Fri Jan 15 06:50:53 2016 +0100
+++ b/Tools__MethodList.st	Sat Jan 16 06:58:47 2016 +0100
@@ -1691,7 +1691,11 @@
     "/
     icn isNil ifTrue:[
         (aMethod notNil and:[aMethod isMethodWithBreakpoints]) ifTrue:[
-            icn := self lineBreakPointedIcon
+            aMethod hasEnabledBreakpoints ifTrue:[ 
+                icn := self lineBreakPointedIcon
+            ] ifFalse:[    
+                icn := self lineTracePointedIcon
+            ].
         ].
     ].
 
@@ -1909,10 +1913,10 @@
 !MethodList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__MethodList.st,v 1.118 2015-02-26 03:58:57 cg Exp $'
+    ^ '$Header$'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__MethodList.st,v 1.118 2015-02-26 03:58:57 cg Exp $'
+    ^ '$Header$'
 ! !