--- a/DeviceWorkstation.st	Mon Apr 21 11:09:40 1997 +0200
+++ b/DeviceWorkstation.st	Mon Apr 21 12:09:42 1997 +0200
@@ -3918,13 +3918,17 @@
     "setup screen specific properties."
 
     supportsDeepIcons isNil ifTrue:[
-	supportsDeepIcons := false.
+        supportsDeepIcons := false.
     ].
 
     fixColors := ditherColors := nil.
     numFixRed := numFixGreen := numFixBlue := 0.
 
-    "Modified: 13.1.1997 / 22:04:29 / cg"
+    self == Display ifTrue:[
+        self initializeDeviceResources.
+    ].
+
+    "Modified: 21.4.1997 / 12:04:37 / cg"
 !
 
 invalidateConnection
@@ -5416,6 +5420,6 @@
 !DeviceWorkstation class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.208 1997-04-16 13:04:53 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.209 1997-04-21 10:09:42 cg Exp $'
 ! !
 DeviceWorkstation initialize!