--- a/DeviceGraphicsContext.st	Sun Apr 03 16:05:41 2016 +0100
+++ b/DeviceGraphicsContext.st	Sun Apr 03 17:09:29 2016 +0100
@@ -122,7 +122,7 @@
             (self class name,' [warning]: no Display') infoPrintCR.
             Smalltalk openDisplay.
             
-            device := Screen current.
+            device := Screen current ? Display.
             device isNil ifTrue:[ self error:'no screen device' ]
         ].
     ].