--- a/DeviceWorkstation.st	Thu Apr 03 16:39:59 2014 +0200
+++ b/DeviceWorkstation.st	Thu Apr 03 18:36:41 2014 +0200
@@ -934,6 +934,10 @@
     "
 !
 
+isWindowsPlatform
+    ^ false
+!
+
 platformName
     "ST-80 compatibility.
      Return a string describing the display systems platform.
@@ -7366,7 +7370,7 @@
 !DeviceWorkstation methodsFor:'queries'!
 
 isWindowsPlatform
-    ^ false
+    ^ self class isWindowsPlatform
 !
 
 supportedClipboards
@@ -8324,11 +8328,11 @@
 !DeviceWorkstation class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.611 2014-03-27 20:59:17 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.612 2014-04-03 16:36:41 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.611 2014-03-27 20:59:17 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.612 2014-04-03 16:36:41 stefan Exp $'
 ! !