--- a/Tools_BrowserList.st	Thu Jan 16 15:32:30 2014 +0100
+++ b/Tools_BrowserList.st	Thu Jan 16 15:32:36 2014 +0100
@@ -1000,7 +1000,7 @@
         |fh icn h|
 
         true "(icn := Icons at:name ifAbsent:nil) isNil" ifTrue: [
-            icn := (SystemBrowser perform:fetchSelector) onDevice:Display.
+            icn := (SystemBrowser perform:fetchSelector) onDevice:device.
             "/ Icons at:name put:icn.
             icn clearMaskedPixels.
         ].
@@ -1890,10 +1890,10 @@
 !BrowserList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_BrowserList.st,v 1.58 2013-09-05 10:46:11 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_BrowserList.st,v 1.59 2014-01-16 14:32:36 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_BrowserList.st,v 1.58 2013-09-05 10:46:11 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_BrowserList.st,v 1.59 2014-01-16 14:32:36 stefan Exp $'
 ! !