--- a/HostGraphicsDevice.st	Tue Sep 07 16:47:16 2004 +0200
+++ b/HostGraphicsDevice.st	Tue Sep 07 16:48:47 2004 +0200
@@ -154,8 +154,11 @@
     ].
     deviceColors := Registry new.
 
+    "TrueColors are not registered.
+     Release the the hard way"
+    Color flushDeviceColorsFor:self.
+
     "Created: 24.2.1997 / 18:07:49 / cg"
-
 !
 
 releaseDeviceCursors
@@ -258,5 +261,5 @@
 !HostGraphicsDevice class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/HostGraphicsDevice.st,v 1.22 2003-08-20 10:30:24 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/HostGraphicsDevice.st,v 1.23 2004-09-07 14:48:47 stefan Exp $'
 ! !