--- a/Color.st	Mon Sep 13 18:04:06 2004 +0200
+++ b/Color.st	Tue Sep 14 14:07:24 2004 +0200
@@ -4203,7 +4203,19 @@
     "tell the newly restored Color about restoration"
 
     super readBinaryContentsFrom:stream manager:manager.
-    self postCopy
+    red := manager nextObject.
+    green := manager nextObject.
+    blue := manager nextObject.
+    writable := manager nextObject.
+
+    self restored.
+!
+
+storeBinaryDefinitionBodyOn:stream manager:manager
+    manager putIdOf:red on:stream.
+    manager putIdOf:green on:stream.
+    manager putIdOf:blue on:stream.
+    manager putIdOf:writable on:stream.
 ! !
 
 !Color methodsFor:'comparing'!
@@ -5323,7 +5335,7 @@
 !Color class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Color.st,v 1.192 2004-08-12 12:28:34 penk Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Color.st,v 1.193 2004-09-14 12:07:24 stefan Exp $'
 ! !
 
 Color initialize!