--- a/ApplicationModel.st	Sat Nov 21 00:21:14 2015 +0100
+++ b/ApplicationModel.st	Sat Nov 21 00:32:26 2015 +0100
@@ -2753,8 +2753,8 @@
 initializeScreenDevice
     Screen notNil ifTrue:[
         device := Screen current.
-        device isOpen ifFalse:[
-            self error:'screen device is not open'
+        (device notNil and:[device isOpen not]) ifTrue:[
+            (self class name,' [warning]: screen device is not open') errorPrintCR
         ].    
     ]
 !