--- a/PositionableStream.st	Fri Oct 15 01:51:54 1999 +0200
+++ b/PositionableStream.st	Sat Oct 16 13:13:09 1999 +0200
@@ -423,7 +423,22 @@
     "file in from the receiver, i.e. read chunks and evaluate them -
      return the value of the last chunk."
 
-    ^ self fileInNotifying:(SourceFileLoader on:self) passChunk:true
+    |oldPath val|
+
+    self isFileStream ifFalse:[
+        ^ self fileInNotifying:(SourceFileLoader on:self) passChunk:true.
+    ].
+
+    [
+        oldPath := Smalltalk systemPath.
+        Smalltalk systemPath:(oldPath copy addFirst:(self pathName asFilename directoryName); yourself).
+        val := self fileInNotifying:(SourceFileLoader on:self) passChunk:true.
+    ] valueNowOrOnUnwindDo:[
+        Smalltalk systemPath:oldPath.
+    ].
+    ^ val
+
+    "Modified: / 16.10.1999 / 12:25:27 / cg"
 !
 
 fileInNextChunkNotifying:someone
@@ -1019,6 +1034,6 @@
 !PositionableStream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/PositionableStream.st,v 1.84 1999-09-20 07:56:04 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/PositionableStream.st,v 1.85 1999-10-16 11:12:51 cg Exp $'
 ! !
 PositionableStream initialize!