--- a/ReadStream.st	Thu Apr 07 19:45:17 2016 +0200
+++ b/ReadStream.st	Sun Apr 10 11:50:09 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