--- a/AbstractFileBrowser.st	Tue Mar 27 17:20:21 2018 +0200
+++ b/AbstractFileBrowser.st	Tue Mar 27 19:30:33 2018 +0200
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 2002 by eXept Software AG
               All Rights Reserved
@@ -3000,7 +2998,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))
                                 ].
                             ].
@@ -6755,18 +6753,18 @@
                             with:errOutput contents.
                 exceptionBlock value:errMsg.
 
-                (inFile ~= fileName) ifTrue:[inFile delete].
-                outFile delete.
+                (inFile ~= fileName) ifTrue:[inFile remove].
+                outFile remove.
                 ^ false
             ].
-            (inFile ~= fileName) ifTrue:[inFile delete].
+            (inFile ~= fileName) ifTrue:[inFile remove].
             inFile := outFile.
             eachConversionSuffixCommandPair := conversionStream next
         ].
         outFile moveTo:(fileName withSuffix:(chainOfConversions last value)).
     ] ifCurtailed:[
-        (inFile ~= fileName) ifTrue:[inFile delete].
-        outFile delete.
+        (inFile ~= fileName) ifTrue:[inFile remove].
+        outFile remove.
     ].
     ^ true.
 
@@ -7702,7 +7700,7 @@
                 ] ensure:[
                     out notNil ifTrue:[ out close ].
                     in notNil ifTrue:[ in close ].
-                    outFile delete.
+                    outFile remove.
                 ]
             ] on:FileStream openErrorSignal do:[:ex|
                 self warn:('Cannot process "%1".' bindWith:fileName baseName allBold).
@@ -8676,7 +8674,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'