--- a/Stream.st	Thu Aug 24 18:03:45 2017 +0200
+++ b/Stream.st	Fri Aug 25 00:53:41 2017 +0200
@@ -239,7 +239,6 @@
     self nextPut:(Character nl)
 ! !
 
-
 !Stream methodsFor:'accessing'!
 
 contents
@@ -954,7 +953,7 @@
 
 nextBytes:numBytes into:aCollection startingAt:initialIndex blockSize:blockSize
     "like nextBytes:into:startingAt:, but read in blocks of the given size.
-     This leads to better beahvior when reading large chunks from a slow device,
+     This leads to better behavior when reading large chunks from a slow device,
      such as a cdrom drive (since a single unix-read is not interruptable)."
 
     |nR oR n|
@@ -962,19 +961,19 @@
     nR := numBytes.
     oR := initialIndex.
     [nR > 0] whileTrue:[
-	n := nR.
-	n > blockSize ifTrue:[n := blockSize].
-	n := self nextBytes:n into:aCollection startingAt:oR.
-	n == 0 ifTrue:[
-	    ^ numBytes - nR
-	].
-	oR := oR + n.
-	nR := nR - n
+        n := nR.
+        n > blockSize ifTrue:[n := blockSize].
+        n := self nextBytes:n into:aCollection startingAt:oR.
+        n == 0 ifTrue:[
+            ^ numBytes - nR
+        ].
+        oR := oR + n.
+        nR := nR - n
     ].
     ^ numBytes
 
-    "Created: 24.4.1997 / 21:09:34 / cg"
-    "Modified: 24.4.1997 / 21:19:50 / cg"
+    "Created: / 24-04-1997 / 21:09:34 / cg"
+    "Modified (comment): / 25-08-2017 / 00:17:09 / cg"
 !
 
 nextBytesInto:anObject