--- a/TestRunner.st	Thu Aug 02 22:57:17 2012 +0200
+++ b/TestRunner.st	Mon Aug 13 16:23:13 2012 +0200
@@ -673,12 +673,12 @@
 !
 
 updateCategoryList
-	|categories|
+        |categories|
 
-	categories := (TestCase allSubclasses collect: [:each | each category]) asSet asOrderedCollection.
-	categories sort.
-	categories addFirst:'* all *'.
-	self categoryList value:categories.
+        categories := (TestCase allSubclasses collect:[:each | each category] as:Set) asOrderedCollection.
+        categories sort.
+        categories addFirst:'* all *'.
+        self categoryList value:categories.
 !
 
 updateSuitesList
@@ -1056,11 +1056,11 @@
 !TestRunner class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestRunner.st,v 1.61 2012-02-13 13:44:52 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestRunner.st,v 1.62 2012-08-13 14:23:13 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestRunner.st,v 1.61 2012-02-13 13:44:52 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestRunner.st,v 1.62 2012-08-13 14:23:13 stefan Exp $'
 !
 
 version_SVN