--- a/ReadStream.st	Fri Apr 08 07:02:36 2016 +0100
+++ b/ReadStream.st	Mon Apr 11 06:38:58 2016 +0200
@@ -583,7 +583,7 @@
 !
 
 nextUnicode16CharacterMSB:msb
-    ^ Character value:(self nextUnsignedShortMSB:msb)
+    ^ Character value:(self nextUnsignedInt16MSB:msb)
 
     "
      #[16r00 16r51] readStream nextUnicode16CharacterMSB:true
@@ -592,6 +592,8 @@
 !
 
 nextUnicode16Characters:count MSB:msb
+    "easily tuned, if heavily used"
+    
     ^ (1 to:count) 
         collect:[:i | self nextUnicode16CharacterMSB:msb]
         as:Unicode16String