--- a/Icon.st	Wed Sep 14 10:44:25 2016 +0200
+++ b/Icon.st	Mon Sep 19 16:29:19 2016 +0200
@@ -609,12 +609,13 @@
 releaseCachedIconsFromDevice:aGraphicsDevice 
     KnownIcons do:[:eachImage | 
         eachImage graphicsDevice == aGraphicsDevice ifTrue:[
-            eachImage release
+            eachImage release.
         ]
     ].
 
     "
-     Icon releaseIconsFromDevice:Display"
+     Icon releaseCachedIconsFromDevice:Display
+    "
 ! !
 
 !Icon class methodsFor:'documentation'!