--- a/TestCase.st	Tue Oct 06 09:56:29 2009 +0200
+++ b/TestCase.st	Tue Mar 09 13:09:55 2010 +0100
@@ -95,7 +95,7 @@
         lastTestRunsFailedTests := Set new.
     ].
     
-    (lastTestRunsFailedTests includes:selector) not ifTrue:[
+    (lastTestRunsFailedTests includes:selector) ifFalse:[
         lastTestRunsFailedTests add:selector.
         Smalltalk changed:#lastTestRunResult with:(Array with:self with:selector).
         self changed:#lastTestRunResult with:selector.
@@ -787,11 +787,11 @@
 !TestCase class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.52 2009-10-03 13:27:23 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.53 2010-03-09 12:09:55 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.52 2009-10-03 13:27:23 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.53 2010-03-09 12:09:55 cg Exp $'
 ! !
 
 TestCase initialize!