--- a/ImageReader.st	Wed Jan 01 15:19:44 2020 +0100
+++ b/ImageReader.st	Sun Jan 05 17:25:40 2020 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1991 by Claus Gittinger
 	      All Rights Reserved
@@ -2391,7 +2393,7 @@
         stream := aFileName asFilename newReadWriteStream.
         aBlock value:stream.
         done := true.
-    ] on:FileStream openErrorSignal do:[:ex|
+    ] on:OpenError do:[:ex|
         Image fileCreationErrorSignal
             raiseWith:something
             errorString:('file creation error: ' , ex description).