--- a/Tools_BrowserList.st	Wed Feb 26 13:57:03 2014 +0100
+++ b/Tools_BrowserList.st	Wed Feb 26 14:51:11 2014 +0100
@@ -997,27 +997,19 @@
     "answer an icon to mark methods"
 
     icons isNil ifTrue:[icons := IdentityDictionary new].
-    "/ Icons isNil ifTrue:[Icons := IdentityDictionary new].
 
     ^ icons at:name ifAbsentPut:[
-        |fh icn h|
+        |icn fh h|
 
-        true "(icn := Icons at:name ifAbsent:nil) isNil" ifTrue: [
-            icn := (SystemBrowser perform:fetchSelector) onDevice:Display.
-            "/ Icons at:name put:icn.
-            icn clearMaskedPixels.
-        ].
+        icn := (SystemBrowser perform:fetchSelector) onDevice:device.
+        icn clearMaskedPixels.
+
         h := icn height.
         h > (fh := SelectionInListView defaultFont heightOn:device) ifTrue:[
             icn := icn magnifiedBy:(fh / h)
         ].
         icn onDevice:device
       ]
-
-    "
-     Icons := nil
-     Icon flushCachedIcons
-    "
 !
 
 fileImageIcon
@@ -1893,10 +1885,10 @@
 !BrowserList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_BrowserList.st,v 1.62 2014-02-25 10:43:16 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_BrowserList.st,v 1.63 2014-02-26 13:51:11 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_BrowserList.st,v 1.62 2014-02-25 10:43:16 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_BrowserList.st,v 1.63 2014-02-26 13:51:11 stefan Exp $'
 ! !