--- a/DeviceGraphicsContext.st	Fri Sep 26 11:48:32 2014 +0200
+++ b/DeviceGraphicsContext.st	Fri Sep 26 12:25:04 2014 +0200
@@ -9,8 +9,6 @@
  other person.  No title to or ownership of the software is
  hereby transferred.
 "
-'From Smalltalk/X, Version:6.2.4.0 on 05-06-2014 at 08:14:45'                   !
-
 "{ Package: 'stx:libview' }"
 
 GraphicsContext subclass:#DeviceGraphicsContext
@@ -2103,7 +2101,7 @@
         self initGC
     ].
     "/ device needGCForBitmapSource  - i.e. WIN32
-    device platformName ~= 'X11' ifTrue:[
+    device isX11Platform ifTrue:[
         (deviceFormGCId := deviceForm gcId) isNil ifTrue:[
             deviceForm initGC.
             deviceFormGCId := deviceForm gcId.
@@ -4137,11 +4135,11 @@
 !DeviceGraphicsContext class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/DeviceGraphicsContext.st,v 1.137.2.3 2014-06-05 15:48:00 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/DeviceGraphicsContext.st,v 1.137.2.4 2014-09-26 10:25:04 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview/DeviceGraphicsContext.st,v 1.137.2.3 2014-06-05 15:48:00 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/DeviceGraphicsContext.st,v 1.137.2.4 2014-09-26 10:25:04 stefan Exp $'
 ! !