--- a/DeviceGraphicsContext.st	Wed Oct 27 15:30:53 1999 +0200
+++ b/DeviceGraphicsContext.st	Wed Oct 27 15:31:14 1999 +0200
@@ -3631,8 +3631,10 @@
 
     "make certain Workstation is initialized - just a check - will vanish soon"
     Display isNil ifTrue:[
-        'DeviceGraphicsContext [warning]: Display not initialized when first DeviceGraphicsContext created' errorPrintCR.
-        Workstation initialize
+	Screen current isNil ifTrue:[
+            'DeviceGraphicsContext [warning]: Display not initialized when first DeviceGraphicsContext created' errorPrintCR.
+            Workstation initialize
+	]
     ].
 
 
@@ -3850,6 +3852,6 @@
 !DeviceGraphicsContext class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/DeviceGraphicsContext.st,v 1.73 1999-09-21 13:06:18 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/DeviceGraphicsContext.st,v 1.74 1999-10-27 13:31:14 stefan Exp $'
 ! !
 DeviceGraphicsContext initialize!