--- a/Tools_BrowserList.st	Fri Mar 22 12:36:31 2013 +0100
+++ b/Tools_BrowserList.st	Fri Mar 22 12:36:34 2013 +0100
@@ -961,6 +961,12 @@
     ^ self fetchIcon:#abstractMethod selector:#abstractMethodIcon
 !
 
+breakPointedIcon
+    "answer an icon to mark breakPointed methods"
+
+    ^ self fetchIcon:#breakPointed selector:#breakPointedIcon
+!
+
 canvasIcon
     "answer an icon to mark canvas spec methods"
 
@@ -976,13 +982,14 @@
     "answer an icon to mark methods"
 
     icons isNil ifTrue:[icons := IdentityDictionary new].
-    Icons isNil ifTrue:[Icons := IdentityDictionary new].
+    "/ Icons isNil ifTrue:[Icons := IdentityDictionary new].
 
     ^ icons at:name ifAbsentPut:[
         |fh icn h|
 
-        (icn := Icons at:name ifAbsent:nil) isNil ifTrue: [
-            Icons at:name put:(icn := (SystemBrowser perform:fetchSelector) onDevice:Display).
+        true "(icn := Icons at:name ifAbsent:nil) isNil" ifTrue: [
+            icn := (SystemBrowser perform:fetchSelector) onDevice:Display.
+            "/ Icons at:name put:icn.
             icn clearMaskedPixels.
         ].
         h := icn height.
@@ -1871,10 +1878,10 @@
 !BrowserList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_BrowserList.st,v 1.56 2013-03-10 15:52:52 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_BrowserList.st,v 1.57 2013-03-22 11:36:34 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_BrowserList.st,v 1.56 2013-03-10 15:52:52 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_BrowserList.st,v 1.57 2013-03-22 11:36:34 cg Exp $'
 ! !