--- a/ExternalStream.st	Mon Aug 26 23:50:02 2019 +0200
+++ b/ExternalStream.st	Mon Aug 26 23:50:45 2019 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1988 by Claus Gittinger
 	      All Rights Reserved
@@ -4899,7 +4901,7 @@
     "
 	(FileStream newTemporary
 	    nextPutUtf16:$B;
-	    nextPutUtf16:$Ä;
+	    nextPutUtf16:$Ä;
 	    nextPutUtf16:(Character codePoint:16r10CCCC);
 	    reset;
 	    binary;
@@ -6321,7 +6323,8 @@
 
 nextPut:aCharacter
     "write the argument, aCharacter - raise an error if failed.
-     Only single-byte characters are currently supported"
+     Answer aCharacter.
+     Only single-byte characters are supported here"
 
     |error|
 %{
@@ -6865,7 +6868,7 @@
     ].
 
     "
-	'Bönnigheim' asUnicode16String errorPrintCR
+	'Bönnigheim' asUnicode16String errorPrintCR
     "
 !