--- a/Stream.st	Wed Feb 26 22:44:50 2020 +0100
+++ b/Stream.st	Thu Feb 27 15:24:35 2020 +0100
@@ -2087,23 +2087,26 @@
      This is provided for compatibility with externalStream;
      to support binary storage"
 
-    |idx|
+    |idx cnt "{ Class:SmallInteger }"|
 
     idx := start.
+    cnt := count.
+    
     self isBinary ifTrue:[
-        1 to:count do:[:i |
+        1 to:cnt do:[:i |
             self nextPutByte:(anObject byteAt:idx).
             idx := idx + 1
         ].
     ] ifFalse:[
-        1 to:count do:[:i |
+        1 to:cnt do:[:i |
             self nextPut:(anObject at:idx).
             idx := idx + 1
         ].
     ].    
-    ^ count
-
-    "Created: 22.4.1997 / 10:44:09 / cg"
+    ^ cnt
+
+    "Created: / 22-04-1997 / 10:44:09 / cg"
+    "Modified: / 27-02-2020 / 14:23:46 / Stefan Vogel"
 !
 
 nextPutBytesFrom:anObject