--- a/WindowsIconReader.st	Tue Apr 30 20:07:57 2019 +0200
+++ b/WindowsIconReader.st	Wed May 01 11:38:53 2019 +0200
@@ -1763,13 +1763,14 @@
     "save image as BMP file on aFileName.
      Only depth 1,4,8 and 24 images can be represented in this format."
 
-    aFileName asFilename suffix asLowercase = 'ico' ifTrue:[
+    (aFileName asFilename suffix sameAs:'ico') ifTrue:[
         self saveICO:image onFile:aFileName.
         ^ self
     ].
     self saveBMP:image onFile:aFileName.
 
     "Modified: / 13-09-2017 / 08:47:33 / cg"
+    "Modified: / 01-05-2019 / 11:27:35 / Claus Gittinger"
 !
 
 saveBMP:image onFile:fileName