--- a/Stream.st	Thu Nov 22 15:09:47 2018 +0100
+++ b/Stream.st	Thu Nov 22 15:46:35 2018 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1989 by Claus Gittinger
 	      All Rights Reserved
@@ -221,8 +223,6 @@
 ! !
 
 
-
-
 !Stream methodsFor:'Compatibility-Dolphin'!
 
 display:someObject
@@ -242,18 +242,6 @@
     self nextPut:(Character nl)
 ! !
 
-!Stream methodsFor:'JS syntactic sugar'!
-
-log:something
-    "same as showCR:.
-     Added to allow for Transcript.log(...) to be used in a similar way as
-     console.log(...).
-     Not for non-JavaScript usage"
-
-    self showCR:something.
-
-    "Created: / 30-08-2018 / 13:29:50 / Claus Gittinger"
-! !
 
 !Stream methodsFor:'accessing'!
 
@@ -2060,7 +2048,7 @@
 
     "
         (#[] writeStream
-            nextPutAllUtf16Bytes:'BÄxxx' MSB:true;
+            nextPutAllUtf16Bytes:'BÄxxx' MSB:true;
             nextPutUtf16:(Character codePoint:16r10CCCC) MSB:true;
             contents)
    "
@@ -2095,15 +2083,15 @@
         ].
 
         String streamContents:[:s|
-            s nextPutAllUtf8:'abcdeäöüß' asUnicode32String
+            s nextPutAllUtf8:'abcdeäöüß' asUnicode32String
         ].
 .
         ByteArray streamContents:[:s|
-            s nextPutAllUtf8:'abcdeäöüß' asUnicode32String
+            s nextPutAllUtf8:'abcdeäöüß' asUnicode32String
         ].
 
         '/tmp/bytes' asFilename writingFileDo:[:s|
-            s nextPutAllUtf8:'abcdeäöüß'
+            s nextPutAllUtf8:'abcdeäöüß'
         ].
     "
 
@@ -2514,7 +2502,7 @@
     "
         ((WriteStream on:Unicode16String new)
             nextPutUtf16:$B;
-            nextPutUtf16:$Ä; 
+            nextPutUtf16:$Ä; 
             nextPutUtf16:(Character codePoint:16r10CCCC)
             yourself) contents
     "
@@ -2549,19 +2537,19 @@
     "
         (#[] writeStream
             nextPutUtf16Bytes:$B MSB:true;
-            nextPutUtf16Bytes:$Ä MSB:true;
+            nextPutUtf16Bytes:$Ä MSB:true;
             nextPutUtf16Bytes:(Character codePoint:16r10CCCC) MSB:true;
             contents)
 
         ('' writeStream
             nextPutUtf16Bytes:$B MSB:true;
-            nextPutUtf16Bytes:$Ä MSB:true;
+            nextPutUtf16Bytes:$Ä MSB:true;
             nextPutUtf16Bytes:(Character codePoint:16r10CCCC) MSB:true;
             contents)
 
         (FileStream newTemporary
             nextPutUtf16Bytes:$B MSB:false;
-            nextPutUtf16Bytes:$Ä MSB:false;
+            nextPutUtf16Bytes:$Ä MSB:false;
             nextPutUtf16Bytes:(Character codePoint:16r10CCCC) MSB:false;
             reset;
             binary;
@@ -2673,7 +2661,7 @@
     "
       (String streamContents:[:s|
             s nextPutUtf8:$a.
-            s nextPutUtf8:$ü.
+            s nextPutUtf8:$ü.
             s nextPutUtf8: (Character value:16r1fff).
             s nextPutUtf8: (Character value:16rffff).
             s nextPutUtf8: (Character value:16r1ffffff).
@@ -4210,9 +4198,8 @@
      This is only allowed, if the receiver supports writing."
 
     aCollection from:first to:last do:[:element |
-	self nextPut:element
+        self nextPut:element
     ].
-    ^ aCollection
 
     "
      |s|
@@ -4222,7 +4209,8 @@
      s contents
     "
 
-    "Modified: 11.7.1996 / 10:00:32 / cg"
+    "Modified: / 11-07-1996 / 10:00:32 / cg"
+    "Modified: / 22-11-2018 / 12:52:25 / Stefan Vogel"
 !
 
 nextPutAllLines:aCollectionOfStrings