--- a/TestCase.st	Tue Jan 16 15:44:17 2001 +0100
+++ b/TestCase.st	Tue Jan 16 15:45:04 2001 +0100
@@ -40,11 +40,12 @@
 !
 
 suite
-	| testSelectors result |
-	testSelectors := self sunitSelectors select: [:each | 'test*' sunitMatch: each].
-	result := TestSuite new.
-	testSelectors do: [:each | result addTest: (self selector: each)].
-	^result
+        | testSelectors result |
+        testSelectors := self sunitSelectors select: [:each | 'test*' sunitMatch: each].
+        testSelectors sort.
+        result := TestSuite new.
+        testSelectors do: [:each | result addTest: (self selector: each)].
+        ^result
 
     "Modified: / 21.6.2000 / 10:05:24 / Sames"
 ! !
@@ -193,6 +194,6 @@
 !TestCase class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.9 2000-12-14 13:08:19 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.10 2001-01-16 14:45:04 cg Exp $'
 ! !
 TestCase initialize!