--- a/ImageReader.st	Wed May 19 12:07:55 2010 +0200
+++ b/ImageReader.st	Tue Jun 01 19:05:16 2010 +0200
@@ -1844,23 +1844,28 @@
     |stream|
 
     [
-	stream := aFileName asFilename newReadWriteStream.
+        stream := aFileName asFilename newReadWriteStream.
     ] on:FileStream openErrorSignal do:[:ex|
-	^ Image fileCreationErrorSignal
-	    raiseWith:image
-	    errorString:('file creation error: ' , aFileName asString).
+        ^ Image fileCreationErrorSignal
+            raiseWith:image
+            errorString:('file creation error: ' , aFileName asString).
     ].
 
     [
-	[
-	    self save:image onStream:stream.
-	] ifCurtailed:[
-	    aFileName asFilename delete.
-	].
+        [
+            self save:image onStream:stream.
+        ] ifCurtailed:[
+            OperatingSystem accessDeniedErrorSignal 
+            handle:[:ex |
+            ] do:[
+                aFileName asFilename delete.
+            ]
+        ].
+    ] ensure:[
+        stream close.
+    ].
 
-    ] ensure:[
-	stream close.
-    ].
+    "Modified: / 01-06-2010 / 19:02:17 / cg"
 !
 
 save:image onStream:aStream
@@ -1929,9 +1934,9 @@
 !ImageReader class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/ImageReader.st,v 1.97 2009-11-16 22:59:26 mb Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/ImageReader.st,v 1.98 2010-06-01 17:05:16 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview/ImageReader.st,v 1.97 2009-11-16 22:59:26 mb Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/ImageReader.st,v 1.98 2010-06-01 17:05:16 cg Exp $'
 ! !