--- a/ApplicationWithFileHistory.st	Tue May 14 19:22:17 2019 +0200
+++ b/ApplicationWithFileHistory.st	Thu May 16 19:32:28 2019 +0200
@@ -110,6 +110,7 @@
             fileHistory add:value asFilename.
             index := index + 1
         ].
+        k close.
     ] ifFalse:[
         dir := self directoryForFileHistory.
         dir isDirectory ifTrue:[
@@ -119,6 +120,8 @@
             ]
         ]
     ]
+
+    "Modified: / 16-05-2019 / 19:05:49 / Stefan Vogel"
 !
 
 fileHistory