--- a/DeviceWorkstation.st	Thu Nov 02 11:46:24 2000 +0100
+++ b/DeviceWorkstation.st	Thu Nov 02 11:57:59 2000 +0100
@@ -772,7 +772,10 @@
      and assigns the first opened screenDevice to both Display and the default
      screen."
 
-    DefaultScreen := aDevice
+    DefaultScreen := aDevice.
+
+    "as long as global Display exists, set it too"
+    Display := aDevice.
 !
 
 flushCachedLastScreen
@@ -7175,6 +7178,6 @@
 !DeviceWorkstation class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.384 2000-09-29 12:45:35 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.385 2000-11-02 10:57:59 stefan Exp $'
 ! !
 DeviceWorkstation initialize!