ExternalStream.st
changeset 19687 041f74a69c35
parent 19622 c8edbe624b7c
child 19688 6978a8198d16
--- a/ExternalStream.st	Mon May 02 14:14:07 2016 +0200
+++ b/ExternalStream.st	Mon May 02 15:11:58 2016 +0200
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 1988 by Claus Gittinger
 	      All Rights Reserved
@@ -2575,8 +2573,12 @@
     position := 0.
     binary := false.
     buffered := true.
+    self initializeEOLMode.
+    hitEOF := false.
+!
+
+initializeEOLMode
     eolMode := DefaultEOLMode.
-    hitEOF := false.
 ! !
 
 !ExternalStream methodsFor:'line reading/writing'!
@@ -6527,7 +6529,7 @@
     ].
 
     "
-	'Bönnigheim' asUnicode16String errorPrintCR
+	'Bönnigheim' asUnicode16String errorPrintCR
     "
 !
 
@@ -6712,7 +6714,7 @@
     "
         (FileStream newTemporary
             nextPutUtf16:$B;
-            nextPutUtf16:$Ä;
+            nextPutUtf16:$Ä;
             nextPutUtf16:(Character codePoint:16r10CCCC);
             reset;
             binary;
@@ -6745,7 +6747,7 @@
     "
         (FileStream newTemporary
             nextPutUtf16:$B MSB:true;
-            nextPutUtf16:$Ä MSB:true;
+            nextPutUtf16:$Ä MSB:true;
             nextPutUtf16:(Character codePoint:16r10CCCC) MSB:true;
             reset;
             binary;
@@ -6753,7 +6755,7 @@
     
         (FileStream newTemporary
             nextPutUtf16:$B MSB:false;
-            nextPutUtf16:$Ä MSB:false;
+            nextPutUtf16:$Ä MSB:false;
             nextPutUtf16:(Character codePoint:16r10CCCC) MSB:false;
             reset;
             binary;