--- 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!