--- a/RegressionTests__FileStreamTest.st	Wed Aug 12 13:44:18 1998 +0200
+++ b/RegressionTests__FileStreamTest.st	Tue May 11 14:05:19 1999 +0200
@@ -4,7 +4,7 @@
 	instanceVariableNames:''
 	classVariableNames:''
 	poolDictionaries:''
-	category:'Stream Tests'
+	category:'Tests - Streams'
 !
 
 
@@ -18,11 +18,11 @@
     f := 'testFile' asFilename writeStream binary.
     bytes := ByteArray new:1024.
     1 to:bytes size do:[:i |
-        bytes at:i put:(i \\ 256).
+	bytes at:i put:(i \\ 256).
     ].
 
     100 timesRepeat:[
-        f nextPutAll:bytes.
+	f nextPutAll:bytes.
     ].
 
     f close.
@@ -44,12 +44,12 @@
 
     n := 0.
     [f atEnd] whileFalse:[
-        nRead := f nextBytes:128 into:buffer.
-        n := n + nRead.
+	nRead := f nextBytes:128 into:buffer.
+	n := n + nRead.
     ].
     f close.
     expect ~~ n ifTrue:[
-        self halt:('got <1p>; expected:<2p>' expandMacrosWith:n with:expect)
+	self halt:('got <1p>; expected:<2p>' expandMacrosWith:n with:expect)
     ].
 
     "Created: / 12.8.1998 / 13:29:41 / cg"
@@ -85,7 +85,7 @@
     sz := 'testFile' asFilename fileSize.
 
     20 timesRepeat:[
-        [self readFileExpecting:sz. 'done' printCR.] fork.
+	[self readFileExpecting:sz. 'done' printCR.] fork.
     ].
 
     "
@@ -108,18 +108,18 @@
     sz := 'testFile' asFilename fileSize.
 
     p := [
-        nLoop timesRepeat:[
-            self readFileExpecting:sz.
-        ].
+	nLoop timesRepeat:[
+	    self readFileExpecting:sz.
+	].
     ] forkAt:7.
 
     count := 0.
     [p isDead] whileFalse:[
-        Delay waitForMilliseconds:10.
-        p interruptWith:[count := count + 1].
+	Delay waitForMilliseconds:10.
+	p interruptWith:[count := count + 1].
     ].
     ('read file <1p> times; interrupted <2p> times' 
-        expandMacrosWith:nLoop with:count) printCR
+	expandMacrosWith:nLoop with:count) printCR
 
     "
      self test3