--- a/ImageReader.st	Thu Apr 03 23:21:38 2014 +0200
+++ b/ImageReader.st	Thu Apr 03 23:22:47 2014 +0200
@@ -1961,16 +1961,17 @@
     ].
 
     [
-        [ aBlock value: stream ]
-            ifCurtailed:[
-                OperatingSystem accessDeniedErrorSignal 
-                    handle:[:ex |] 
-                    do:[
-                        aFileName asFilename delete.
-                    ]
-            ].
-    ] ensure:[
-        stream close.
+        [
+            aBlock value: stream
+        ] ensure:[
+            stream close.
+        ].
+    ] ifCurtailed:[
+        OperatingSystem accessDeniedErrorSignal 
+            handle:[:ex |] 
+            do:[
+                aFileName asFilename delete.
+            ]
     ].
 ! !
 
@@ -2032,10 +2033,10 @@
 !ImageReader class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/ImageReader.st,v 1.109 2014-03-05 15:26:21 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/ImageReader.st,v 1.110 2014-04-03 21:22:47 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview/ImageReader.st,v 1.109 2014-03-05 15:26:21 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/ImageReader.st,v 1.110 2014-04-03 21:22:47 cg Exp $'
 ! !