--- a/RegressionTests__FileStreamTest.st	Fri Nov 16 00:14:24 2001 +0100
+++ b/RegressionTests__FileStreamTest.st	Tue Dec 11 16:19:34 2001 +0100
@@ -2,7 +2,7 @@
 
 "{ NameSpace: RegressionTests }"
 
-Object subclass:#FileStreamTest
+TestCase subclass:#FileStreamTest
 	instanceVariableNames:''
 	classVariableNames:''
 	poolDictionaries:''
@@ -10,7 +10,7 @@
 !
 
 
-!FileStreamTest class methodsFor:'tests'!
+!FileStreamTest methodsFor:'tests'!
 
 createTestFile
     "create a test file (100k size)"