--- a/TestRunner.st	Mon Nov 18 18:13:47 2002 +0100
+++ b/TestRunner.st	Tue Nov 19 12:10:57 2002 +0100
@@ -743,7 +743,8 @@
         suites := TestCase allSubclasses 
                         select:[:each | 
                                 true "/ "cg:TestCaseHelper is gone -->" ((each isSubclassOf:TestCaseHelper) not) 
-                                and:[allCategories or:[cat = each category]]]
+                                and:[each isAbstract not
+                                and:[allCategories or:[cat = each category]]]]
                         thenCollect: [:each | each name].
         suites sort.
         ^ suites 
@@ -822,7 +823,7 @@
 freshTestSuite
         |tests|
 
-        tests := self tests contents.
+        tests := self tests contents string.
         tests isNil ifTrue:[ ^ nil].
         ^TestSuitesScripter run: tests
 
@@ -1129,5 +1130,5 @@
 !TestRunner class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestRunner.st,v 1.47 2002-11-18 17:13:33 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestRunner.st,v 1.48 2002-11-19 11:10:57 cg Exp $'
 ! !