--- a/ListView.st	Tue Jan 14 13:31:09 2014 +0100
+++ b/ListView.st	Tue Jan 14 16:31:16 2014 +0100
@@ -2492,7 +2492,7 @@
     lineSpacing := 2.
     "/ q&d temporary hack.
     "/ X11 fonts are currently so ugly... add more spacing.
-    Screen current platformName = #X11 ifTrue:[
+    device platformName = #X11 ifTrue:[
         lineSpacing := lineSpacing + 3.
     ].
     fgColor := DefaultForegroundColor.
@@ -5263,10 +5263,10 @@
 !ListView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/ListView.st,v 1.389 2014-01-14 12:31:09 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/ListView.st,v 1.390 2014-01-14 15:31:16 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg/ListView.st,v 1.389 2014-01-14 12:31:09 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/ListView.st,v 1.390 2014-01-14 15:31:16 stefan Exp $'
 ! !