--- a/Color.st	Wed Aug 18 19:48:05 1999 +0200
+++ b/Color.st	Wed Aug 18 19:59:47 1999 +0200
@@ -560,10 +560,6 @@
 update:something with:aParameter from:changedObject
     "handle image restarts and flush any device resource handles"
 
-    (something == #restarted) ifTrue:[
-        self flushDeviceColors
-    ].
-
     (something == #returnFromSnapshot) ifTrue:[
         Display visualType == #TrueColor ifTrue:[
             Display releaseFixColors
@@ -4280,15 +4276,18 @@
 
 !Color methodsFor:'instance release'!
 
-shallowCopyForFinalization
+executor
     "redefined, since for finalization only device and colorIndex
      are needed - thus a faster copy is possible here"
 
-    |aCopy|
-
-    aCopy := DeviceColorHandle basicNew.
-    aCopy setDevice:device colorId:colorId.
-    ^ aCopy
+    ^ DeviceColorHandle basicNew setDevice:device colorId:colorId
+!
+
+releaseFromDevice
+    "I am no longer available on the device"
+
+    colorId := device := nil.
+
 ! !
 
 !Color methodsFor:'printing & storing'!
@@ -4605,6 +4604,6 @@
 !Color class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Color.st,v 1.129 1999-08-18 17:23:07 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Color.st,v 1.130 1999-08-18 17:59:20 cg Exp $'
 ! !
 Color initialize!