# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1568361307 -7200
# Node ID 71aa982cb0cf14e0e61cb8c4c88ac198d51a78a1
# Parent  f2819db5cb15a6d91b1b684b2b1af155242b8df3
#QUALITY by exept
class: AbstractFileBrowser
changed: #generatePatchInstallerForSelectedFiles
ensure file is closed.

diff -r f2819db5cb15 -r 71aa982cb0cf AbstractFileBrowser.st
--- a/AbstractFileBrowser.st	Fri Sep 13 09:27:15 2019 +0200
+++ b/AbstractFileBrowser.st	Fri Sep 13 09:55:07 2019 +0200
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 2002 by eXept Software AG
               All Rights Reserved
@@ -2977,7 +2975,7 @@
                                     "/ are perfect here, but usually not available in the font
                                     "/ and we have currently no way of knowing if they are...
                                     "/ (could let the font draw into a bitmap and check if there is something...)
-                                    "/ For now, write a dot.·
+                                    "/ For now, write a dot.·
                                     "/ charPrinted := (Character value:(byte + 16r2400))
                                 ].
                             ].
@@ -8089,8 +8087,11 @@
             |inStream signatureFilename|
 
             inStream := fn asFilename readStream.
-            zipArchive addFile: (targetDir construct:fn asFilename baseName) name fromStream:inStream.
-            inStream close.
+            [
+                zipArchive addFile: (targetDir construct:fn asFilename baseName) name fromStream:inStream.
+            ] ensure:[
+                inStream close.
+            ].
         ].
 
         zipArchive close.
@@ -8954,7 +8955,7 @@
             ] ifFalse:[sig == HaltInterrupt ifTrue:[ |sender|
                 label := msg := 'Breakpoint/Halt in fileIn'.
                 sender := ex suspendedContext.
-                msg := msg , ('\\in %1 » %2' bindWith:(sender receiver class name) with:(sender sender selector))
+                msg := msg , ('\\in %1 » %2' bindWith:(sender receiver class name) with:(sender sender selector))
             ] ifFalse:[
                 label := 'Error in fileIn'.
                 msg := 'error in fileIn: %1'