FileStream.st
changeset 21459 afc01857037e
parent 21237 d2ad73cbbee4
child 21473 b4666c36e86f
--- a/FileStream.st	Thu Feb 16 14:14:08 2017 +0100
+++ b/FileStream.st	Thu Feb 16 14:14:42 2017 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1989 by Claus Gittinger
 	      All Rights Reserved
@@ -1958,7 +1960,9 @@
      return the value of the last chunk.
      Someone (which is usually some codeView) is notified of errors."
 
-    ^ self fileInNotifying:notifiedLoader passChunk:passChunk inDirectory:(self pathName asFilename directory).
+    ^ self fileInNotifying:notifiedLoader passChunk:passChunk inDirectory:(self fileName directory).
+
+    "Modified: / 16-02-2017 / 11:28:21 / stefan"
 !
 
 fileInNotifying:notifiedLoader passChunk:passChunk inDirectory:aDirectory