--- a/ExternalStream.st	Wed Mar 13 17:27:22 2019 +0100
+++ b/ExternalStream.st	Wed Mar 13 20:15:29 2019 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1988 by Claus Gittinger
 	      All Rights Reserved
@@ -2085,10 +2087,29 @@
     binary := true
 !
 
+binary:beBinaryBool
+    "switch to binary mode - default is text"
+
+    |wasBinary|
+
+    wasBinary := binary.
+    binary := beBinaryBool.
+    ^ wasBinary
+
+    "Created: / 13-03-2019 / 19:18:53 / Stefan Vogel"
+!
+
 buffered:aBoolean
-    "turn buffering on or off - default is on"
-
-    buffered := aBoolean
+    "turn buffering on or off - default is on.
+     Answer the previous bufferd state."
+
+    |wasBuffered|
+
+    wasBuffered := buffered.
+    buffered := aBoolean.
+    ^ wasBuffered.
+
+    "Modified (comment): / 13-03-2019 / 19:33:16 / Stefan Vogel"
 !
 
 contents
@@ -4847,7 +4868,7 @@
     "
 	(FileStream newTemporary
 	    nextPutUtf16:$B;
-	    nextPutUtf16:$Ä;
+	    nextPutUtf16:$Ä;
 	    nextPutUtf16:(Character codePoint:16r10CCCC);
 	    reset;
 	    binary;
@@ -6808,7 +6829,7 @@
     ].
 
     "
-	'Bönnigheim' asUnicode16String errorPrintCR
+	'Bönnigheim' asUnicode16String errorPrintCR
     "
 !