--- a/FileOperation.st	Thu Nov 30 17:52:54 2017 +0100
+++ b/FileOperation.st	Fri Dec 01 01:01:34 2017 +0100
@@ -1331,7 +1331,8 @@
     [
         remaining := fileSize.
         bufferSize := 8192.
-        buffer := ByteArray new:bufferSize.
+        "/ buffer := ByteArray new:bufferSize.
+        buffer := (1 to:bufferSize) collect:[:n | Random nextBetween:0 and:255] as:ByteArray.
 
         [remaining > 0] whileTrue:[
             nWritten := writeStream
@@ -1344,7 +1345,7 @@
         writeStream close.
     ].
 
-    "Modified: / 07-02-2007 / 18:20:21 / cg"
+    "Modified: / 01-12-2017 / 01:00:52 / cg"
 ! !
 
 !FileOperation::Erase methodsFor:'queries'!