--- a/Stream.st	Tue Mar 22 12:14:01 2016 +0100
+++ b/Stream.st	Tue Mar 22 12:35:39 2016 +0100
@@ -1394,6 +1394,11 @@
     ].    
     ^ (bH bitShift:8) bitOr:bL
 
+    "
+     ((ReadStream on:#[16r10 16r20 16r30]) nextUnsignedInt16MSB:true) hexPrintString
+     ((ReadStream on:#[16r10 16r20 16r30]) nextUnsignedInt16MSB:false) hexPrintString
+    "
+
     "Modified: 11.7.1996 / 10:07:20 / cg"
 !
 
@@ -3419,7 +3424,8 @@
 nextDecimalInteger:numChars
     "read and return the next integer of numChars size from the receiver stream.
      Does NOT skip separators.
-     Leaves the stream positioned after the digits"
+     Leaves the stream positioned after the digits.
+     Raises an error, if the characters cannot be converted to an integer"
 
     |chars|
 
@@ -3452,7 +3458,8 @@
 nextDecimalNumber:numChars
     "read and return the next number of numChars size from the receiver stream.
      Does NOT skip separators.
-     Leaves the stream positioned after the digits"
+     Leaves the stream positioned after the digits.
+     Raises an error, if the characters cannot be converted to a number"
 
     |chars|