--- a/TestRunner.st	Mon Nov 11 23:42:57 2002 +0100
+++ b/TestRunner.st	Mon Nov 18 18:13:33 2002 +0100
@@ -838,13 +838,15 @@
     TestCase allSubclassesDo:[:cls |
         |lastResult className|
 
-        lastResult := cls lastTestRunResultOrNil.
-        lastResult notNil ifTrue:[
-            className := cls name.
-            lastResult == true ifTrue:[
-                testsWhichPassed add:className
-            ] ifFalse:[
-                testsWhichFailed add:className
+        cls isAbstract ifFalse:[
+            lastResult := cls lastTestRunResultOrNil.
+            lastResult notNil ifTrue:[
+                className := cls name.
+                lastResult == true ifTrue:[
+                    testsWhichPassed add:className
+                ] ifFalse:[
+                    testsWhichFailed add:className
+                ]
             ]
         ]
     ].
@@ -1127,5 +1129,5 @@
 !TestRunner class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestRunner.st,v 1.46 2002-11-11 22:42:57 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestRunner.st,v 1.47 2002-11-18 17:13:33 cg Exp $'
 ! !