--- a/TestSuitesScriptTest.st	Tue Oct 31 15:27:31 2000 +0100
+++ b/TestSuitesScriptTest.st	Wed Dec 06 16:25:04 2000 +0100
@@ -1,18 +1,17 @@
-'From Smalltalk/X, Version:4.1.1 on 24-oct-2000 at 08:11:03 pm'                 !
-
 "{ Package: 'stx:goodies/sunit' }"
 
 SUnitTest subclass:#TestSuitesScriptTest
 	instanceVariableNames:'scripter suite'
 	classVariableNames:''
 	poolDictionaries:''
-	category:'SUnitTests'
+	category:'SUnit-Tests'
 !
 
 !TestSuitesScriptTest methodsFor:'Running'!
 
 setUp
-	scripter := TestSuitesScripter new.! !
+	scripter := TestSuitesScripter new.
+! !
 
 !TestSuitesScriptTest methodsFor:'Testing'!