--- a/Icon.st	Tue Aug 22 00:45:32 2000 +0200
+++ b/Icon.st	Tue Aug 29 15:03:45 2000 +0200
@@ -10,6 +10,8 @@
  hereby transferred.
 "
 
+"{ Package: 'stx:libview2' }"
+
 Object subclass:#Icon
 	instanceVariableNames:'image mask'
 	classVariableNames:'KnownIcons'
@@ -534,14 +536,21 @@
 
 !Icon class methodsFor:'startup / release'!
 
-preSnapshot
+flushCachedIcons
+    KnownIcons removeAll
 
-    KnownIcons removeAll
+    "
+     Icon flushCachedIcons
+    "
+!
+
+preSnapshot
+    self flushCachedIcons
 ! !
 
 !Icon class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/Icon.st,v 1.26 1999-12-09 11:13:52 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/Icon.st,v 1.27 2000-08-29 13:03:45 cg Exp $'
 ! !
 Icon initialize!