--- a/RegressionTests__FileStreamTest.st	Wed May 01 22:49:35 2019 +0200
+++ b/RegressionTests__FileStreamTest.st	Thu May 02 13:34:29 2019 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "{ Package: 'stx:goodies/regression' }"
 
 "{ NameSpace: RegressionTests }"
@@ -251,19 +253,19 @@
     sz := self testFilename fileSize.
 
     p := [
-	[
-	    nLoop timesRepeat:[
-		self readFileExpecting:sz.
-	    ].
-	] on:Error do:[:ex|
-	    errorOccured := ex.
-	].
-    ] forkAt:7.
+        [
+            nLoop timesRepeat:[
+                self readFileExpecting:sz.
+            ].
+        ] on:Error do:[:ex|
+            errorOccured := ex.
+        ].
+    ] forkAt:(Processor activePriority - 1).
 
     count := 0.
     [p isDead] whileFalse:[
-	Delay waitForMilliseconds:5.
-	p interruptWith:[count := count + 1].
+        Delay waitForMilliseconds:5.
+        p interruptWith:[count := count + 1].
     ].
     self assert:errorOccured isNil.
     self assert:count > 50. "/ at least 50 times interrupted...
@@ -273,7 +275,8 @@
      self new testRead3
     "
 
-    "Modified: / 12.8.1998 / 13:42:13 / cg"
+    "Modified: / 12-08-1998 / 13:42:13 / cg"
+    "Modified: / 02-05-2019 / 13:34:09 / Stefan Reise"
 !
 
 testRewrite1