--- a/TextView.st	Fri Dec 20 04:28:24 2019 +0000
+++ b/TextView.st	Sun Jan 05 17:27:22 2020 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1989 by Claus Gittinger
               All Rights Reserved
@@ -2172,7 +2174,7 @@
             aStream close.
         ].
         contentsWasSaved := true
-    ] on:FileStream openErrorSignal do:[:ex|
+    ] on:OpenError do:[:ex|
         msg := resources string:'cannot append to file %1 !!' with:filename name.
         self warn:(msg , '\\(' , FileStream lastErrorString , ')' ) withCRs
     ]
@@ -2988,7 +2990,7 @@
                 aStream syncData; close.
                 contentsWasSaved := true.
                 defaultFileNameForFileDialog := filename.
-            ] on:FileStream openErrorSignal do:[:ex|
+            ] on:OpenError do:[:ex|
                 msg := resources stringWithCRs:'Cannot write file ''%1'' !!\(%2)'
                                 with:filename name
                                 with:FileStream lastErrorString.
@@ -4465,7 +4467,7 @@
                 ]].
 
                 (inLineComment not & isIgnoreChar) ifTrue:[
-                    "/ íf in a line comment, single ' and " may occur.
+                    "/ íf in a line comment, single ' and " may occur.
                     "/ ignoring ~~ 0 means, that we ignore non-matching peers.
                     (ignoring ~~ 0 and:[nesting top first = cc]) ifTrue:[
                         ignoring := ignoring - 1.