--- a/SimpleView.st	Tue Sep 06 07:00:01 2016 +0200
+++ b/SimpleView.st	Wed Sep 07 06:48:09 2016 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1989 by Claus Gittinger
 	      All Rights Reserved
@@ -9506,6 +9508,7 @@
 "/                ]
 "/            ]
         ] ifFalse:[
+            device isNil ifTrue:[ device := Screen current ].
             "/
             "/ if the display is not already dispatching events,
             "/ this starts the event process.