--- a/ApplicationWithFileHistory.st	Fri Oct 12 11:38:50 2018 +0200
+++ b/ApplicationWithFileHistory.st	Fri Oct 12 20:03:07 2018 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 2013 by Claus Gittinger
               All Rights Reserved
@@ -110,7 +112,7 @@
         ].
     ] ifFalse:[
         dir := self directoryForFileHistory.
-        dir exists ifTrue:[
+        dir isDirectory ifTrue:[
             fn := dir / 'history'.
             fn exists ifTrue:[
                 fileHistory addAll:(fn contents collect:[:s | s asFilename])