--- a/DevWorkst.st	Wed Aug 18 19:48:05 1999 +0200
+++ b/DevWorkst.st	Wed Aug 18 19:59:47 1999 +0200
@@ -4638,6 +4638,10 @@
     |prevKnownViews prevMapping prevWidth prevHeight|
 
     Font flushDeviceFontsFor:self.
+    self releaseDeviceCursors.
+    self releaseDeviceColors.
+
+"/    Color flushDeviceColorsFor:self.
 
     displayId := nil.
     dispatching := false.
@@ -6459,6 +6463,6 @@
 !DeviceWorkstation class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Attic/DevWorkst.st,v 1.312 1999-08-18 17:23:52 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Attic/DevWorkst.st,v 1.313 1999-08-18 17:59:33 cg Exp $'
 ! !
 DeviceWorkstation initialize!