PositionableStream.st
changeset 6421 58dca33cf0fc
parent 6413 dc8d492a39ff
child 6494 5b3d8667c22a
--- a/PositionableStream.st	Tue Feb 26 12:40:42 2002 +0100
+++ b/PositionableStream.st	Tue Feb 26 14:02:26 2002 +0100
@@ -378,7 +378,7 @@
         CurrentFileInDirectoryQuerySignal answer:thisDirectory do:[
             val := self fileInNotifying:(SourceFileLoader on:self) passChunk:true.
         ]
-    ] valueNowOrOnUnwindDo:[
+    ] ensure:[
         Smalltalk systemPath:oldPath.
     ].
     ^ val
@@ -1095,6 +1095,6 @@
 !PositionableStream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/PositionableStream.st,v 1.108 2002-02-25 20:06:54 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/PositionableStream.st,v 1.109 2002-02-26 13:01:37 cg Exp $'
 ! !
 PositionableStream initialize!