--- a/Icon.st	Sun Mar 17 11:45:12 2019 +0100
+++ b/Icon.st	Wed Mar 20 17:53:35 2019 +0100
@@ -686,11 +686,30 @@
 !Icon class methodsFor:'startup & release'!
 
 flushCachedIcons
+    |screen|
+
+    (screen := Screen default) notNil ifTrue:[
+        self releaseCachedIconsFromDevice:screen.
+    ].
     KnownIcons removeAll
 
     "
      Icon flushCachedIcons
     "
+
+    "Modified: / 20-03-2019 / 17:50:34 / Claus Gittinger"
+!
+
+lowSpaceCleanup
+    "cleanup in low-memory situations"
+
+    self flushCachedIcons
+
+    "
+     Icon lowSpaceCleanup
+    "
+
+    "Created: / 20-03-2019 / 17:49:15 / Claus Gittinger"
 !
 
 preSnapshot