--- a/ImageReader.st	Fri Aug 04 17:22:54 2017 +0200
+++ b/ImageReader.st	Fri Aug 04 22:02:58 2017 +0200
@@ -2234,24 +2234,26 @@
     |stream|
 
     [
-	stream := aFileName asFilename newReadWriteStream.
+        stream := aFileName asFilename newReadWriteStream.
     ] on:FileStream openErrorSignal do:[:ex|
-	^ Image fileCreationErrorSignal
-	    raiseWith:something
-	    errorString:('file creation error: ' , aFileName asString).
+        ^ Image fileCreationErrorSignal
+            raiseWith:something
+            errorString:('file creation error: ' , ex description).
     ].
 
     [
-	[
-	    aBlock value: stream
-	] ensure:[
-	    stream close.
-	].
+        [
+            aBlock value: stream
+        ] ensure:[
+            stream close.
+        ].
     ] ifCurtailed:[
-	OsError catch:[
-	    aFileName asFilename delete.
-	]
+        OsError catch:[
+            aFileName asFilename delete.
+        ]
     ].
+
+    "Modified: / 04-08-2017 / 11:28:41 / stefan"
 ! !
 
 !ImageReader methodsFor:'initialization'!