--- a/RegressionTests__FileStreamTest.st	Tue Mar 08 08:02:28 2016 +0000
+++ b/RegressionTests__FileStreamTest.st	Tue Apr 05 19:13:28 2016 +0100
@@ -70,7 +70,8 @@
 !
 
 doTestWrite:size
-    "basic writing"
+    "basic writing. writes a chunk of data and reads it back to verify its written correctly
+     Called with different sizes and interrupted while writing"
 
     |file s sz buffer byte|
 
@@ -262,8 +263,8 @@
         p interruptWith:[count := count + 1].
     ].
     self assert:errorOccured isNil.
-    ('read file <1p> times; interrupted <2p> times' 
-        expandMacrosWith:nLoop with:count) printCR
+    self assert:count > 50. "/ at least 50 times interrupted...
+    "/ Transcript printf:'read file %d times; interrupted %d times\n' with:nLoop with:count.
 
     "
      self new testRead3
@@ -467,5 +468,9 @@
 
 version
     ^ '$Header$'
+!
+
+version_CVS
+    ^ '$Header$'
 ! !