--- a/TestRunner.st	Tue Jan 16 15:45:04 2001 +0100
+++ b/TestRunner.st	Wed Feb 07 11:41:26 2001 +0100
@@ -461,7 +461,7 @@
 !
 
 refreshSuites
-        self scriptModel value: (TestCase allSubclasses collect: [:each | each name]).
+        self scriptModel value: (TestCase allSubclasses collect: [:each | each name]) sort.
         self script value:nil.
         self tests selection: 0.
         self defects selection: 0.
@@ -738,5 +738,5 @@
 !TestRunner class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestRunner.st,v 1.12 2001-01-16 14:44:17 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestRunner.st,v 1.13 2001-02-07 10:41:26 cg Exp $'
 ! !