--- a/UserPreferences.st	Thu Sep 25 21:41:04 2014 +0200
+++ b/UserPreferences.st	Thu Sep 25 21:42:55 2014 +0200
@@ -1723,7 +1723,7 @@
      follow the mouse (as in X) - as opposed to click mode (as in MS-win)"
 
     self focusFollowsMouse ifTrue:[^ true].
-    ^ self at:#mouseWheelFocusFollowsMouse ifAbsent:[ Screen current platformName ~= 'WIN32' ]
+    ^ self at:#mouseWheelFocusFollowsMouse ifAbsent:[ Screen current isWindowsPlatform ]
 
     "
      UserPreferences current mouseWheelFocusFollowsMouse
@@ -4955,11 +4955,11 @@
 !UserPreferences class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/UserPreferences.st,v 1.384 2014-08-03 09:30:14 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/UserPreferences.st,v 1.385 2014-09-25 19:42:55 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/UserPreferences.st,v 1.384 2014-08-03 09:30:14 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/UserPreferences.st,v 1.385 2014-09-25 19:42:55 stefan Exp $'
 !
 
 version_SVN