--- a/TestRunner.st	Sun Apr 28 15:41:55 2013 +0200
+++ b/TestRunner.st	Sun Apr 28 15:46:23 2013 +0200
@@ -768,19 +768,19 @@
     testsWhichFailed := Set new.
 
     TestCase allSubclassesDo:[:cls |
-	|lastResult className|
+        |lastResult className|
 
-	cls isAbstract ifFalse:[
-	    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 == TestResult statePass ifTrue:[
+                    testsWhichPassed add:className
+                ] ifFalse:[
+                    testsWhichFailed add:className
+                ]
+            ]
+        ]
     ].
 !
 
@@ -1056,13 +1056,14 @@
 !TestRunner class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestRunner.st,v 1.64 2012-11-27 11:08:30 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestRunner.st,v 1.65 2013-04-28 13:46:23 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestRunner.st,v 1.64 2012-11-27 11:08:30 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestRunner.st,v 1.65 2013-04-28 13:46:23 cg Exp $'
 !
 
 version_SVN
     ^ '§Id: TestRunner.st 182 2009-12-05 18:12:17Z vranyj1 §'
 ! !
+