--- a/Stream.st	Tue Feb 16 16:25:23 2016 +0100
+++ b/Stream.st	Tue Feb 16 16:58:22 2016 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1989 by Claus Gittinger
 	      All Rights Reserved
@@ -2046,7 +2048,7 @@
      |s bytes|
 
      s := #[] writeStream.
-     s nextPutUInt64:16r123456789abcdef0 MSB:false.
+     s nextPutInt64:16r123456789abcdef0 MSB:false.
      bytes := s contents.
      s := bytes readStream.
      (s nextUInt64MSB:false) hexPrintString.   
@@ -2055,7 +2057,7 @@
      |s bytes|
 
      s := #[] writeStream.
-     s nextPutUInt64:16r123456789abcdef0 MSB:true.
+     s nextPutInt64:16r123456789abcdef0 MSB:true.
      bytes := s contents.
      s := bytes readStream.
      (s nextUInt64MSB:true) hexPrintString.   
@@ -2064,7 +2066,7 @@
      |s bytes|
 
      s := #[] writeStream.
-     s nextPutUInt64:16r-8000000000000000 MSB:true.
+     s nextPutInt64:16r-8000000000000000 MSB:true.
      bytes := s contents.
      s := bytes readStream.
      (s nextUInt64MSB:true) hexPrintString.    
@@ -2073,7 +2075,7 @@
      |s bytes|
 
      s := #[] writeStream.
-     s nextPutUInt64:16r-8000000000000000 MSB:false.
+     s nextPutInt64:16r-8000000000000000 MSB:false.
      bytes := s contents.
      s := bytes readStream.
      (s nextUInt64MSB:false) hexPrintString.   
@@ -2117,7 +2119,7 @@
     "
         ((WriteStream on:Unicode16String new)
             nextPutUtf16:$B;
-            nextPutUtf16:$Ä; 
+            nextPutUtf16:$Ä; 
             nextPutUtf16:(Character codePoint:16r10CCCC)
             yourself) contents
     "
@@ -2180,7 +2182,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).