--- a/ImageReader.st	Tue Feb 26 13:58:22 2002 +0100
+++ b/ImageReader.st	Tue Feb 26 14:03:47 2002 +0100
@@ -1655,7 +1655,7 @@
     ].
     [
         reader := self new fromStream:inStream.
-    ] valueNowOrOnUnwindDo:[
+    ] ensure:[
         inStream close.
     ].
     ^ reader
@@ -2150,5 +2150,5 @@
 !ImageReader class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/ImageReader.st,v 1.75 2001-09-13 09:01:07 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/ImageReader.st,v 1.76 2002-02-26 13:03:36 cg Exp $'
 ! !