--- a/TestResult.st	Tue Feb 26 11:13:44 2002 +0100
+++ b/TestResult.st	Tue Feb 26 11:30:47 2002 +0100
@@ -8,7 +8,7 @@
 !
 
 
-!TestResult class methodsFor:'Exceptions'!
+!TestResult class methodsFor:'exceptions'!
 
 error
        ^self exError
@@ -41,7 +41,7 @@
     "Modified: / 21.6.2000 / 10:11:20 / Sames"
 ! !
 
-!TestResult class methodsFor:'Init / Release'!
+!TestResult class methodsFor:'init / release'!
 
 new
 	^super new initialize
@@ -49,7 +49,7 @@
     "Modified: / 21.6.2000 / 10:11:50 / Sames"
 ! !
 
-!TestResult methodsFor:'Accessing'!
+!TestResult methodsFor:'accessing'!
 
 correctCount
         "depreciated - use #passedCount"
@@ -113,13 +113,13 @@
 		yourself
 ! !
 
-!TestResult methodsFor:'Init / Release'!
+!TestResult methodsFor:'init / release'!
 
 initialize
 	runCount := 0
 ! !
 
-!TestResult methodsFor:'Printing'!
+!TestResult methodsFor:'printing'!
 
 printOn: aStream
 	aStream
@@ -135,7 +135,7 @@
 		ifTrue: [aStream nextPut: $s].
 ! !
 
-!TestResult methodsFor:'Running'!
+!TestResult methodsFor:'running'!
 
 runCase: aTestCase
         |testCasePassed|
@@ -161,7 +161,7 @@
     "Modified: / 21.6.2000 / 10:10:06 / Sames"
 ! !
 
-!TestResult methodsFor:'Testing'!
+!TestResult methodsFor:'testing'!
 
 hasErrors
 
@@ -195,5 +195,5 @@
 !TestResult class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestResult.st,v 1.8 2001-12-13 23:08:20 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestResult.st,v 1.9 2002-02-26 10:30:45 cg Exp $'
 ! !