--- a/AbstractFileBrowser.st	Thu Mar 01 10:46:16 2018 +0100
+++ b/AbstractFileBrowser.st	Thu Mar 01 10:46:29 2018 +0100
@@ -7972,12 +7972,10 @@
     outStream := outFile writeStream.
 
     selectedFiles do:[:fileName |
-        |inStream|
-
         self notify:('Adding:',  fileName baseName).
-        inStream := fileName readStream.
-        inStream copyToEndInto:outStream.
-        inStream close.
+        fileName readingFileDo:[:inStream |
+            inStream copyToEndInto:outStream.
+        ].
     ].
     outStream close.
     self notify:nil.