--- a/AbstractSourceFileReader.st	Wed Nov 07 22:18:17 2018 +0100
+++ b/AbstractSourceFileReader.st	Wed Nov 07 22:22:55 2018 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 2009 by Claus Gittinger / eXept Software AG
               All Rights Reserved
@@ -67,15 +69,13 @@
 !AbstractSourceFileReader methodsFor:'fileIn'!
 
 fileIn:aFilename
-
-    | stream |
-    [stream := aFilename asFilename readStream.
-    self fileInStream: stream]
-        ensure:
-            [stream notNil ifTrue:[stream close]]
+    aFilename asFilename readingFileDo:[:stream |
+        self fileInStream: stream
+    ]
 
     "Modified: / 15-08-2009 / 14:47:29 / Jan Vrany <vranyj1@fel.cvut.cz>"
     "Modified: / 08-08-2010 / 14:38:35 / cg"
+    "Modified: / 07-11-2018 / 22:22:35 / Claus Gittinger"
 !
 
 fileInStream:arg