--- a/TestCase.st	Wed Feb 18 16:05:31 2015 +0100
+++ b/TestCase.st	Thu Feb 26 05:01:33 2015 +0100
@@ -226,11 +226,13 @@
 
     lastOutcomes isNil ifTrue:[^false].
     ^ lastOutcomes
-	contains:[:any|
-	    any testCase class name = self name
-	    and:[any testCase selector == selector
-	    and:[any result == result]]
-	]
+        contains:[:any|
+            |tc|
+
+            (tc := any testCase) class name = self name
+            and:[tc selector == selector
+            and:[any result == result]]
+        ]
 
     "Created: / 20-08-2011 / 16:15:30 / Jan Vrany <jan.vrany@fit.cvut.cz>"
     "Modified: / 04-06-2012 / 16:12:17 / cg"
@@ -266,6 +268,11 @@
    ^self testSelector: selector result: (TestResult stateSkip)
 
     "Created: / 15-03-2010 / 17:58:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+testSelectorsWithLastOutcomes
+    lastOutcomes isNil ifTrue:[^#()].
+    ^lastOutcomes collect:[:outcome| outcome testCase selector] as:Set
 ! !
 
 !TestCase class methodsFor:'building suites'!
@@ -970,15 +977,15 @@
 !TestCase class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.108 2015-02-05 14:56:51 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.109 2015-02-26 04:01:33 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.108 2015-02-05 14:56:51 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.109 2015-02-26 04:01:33 cg Exp $'
 !
 
 version_SVN
-    ^ '$Id: TestCase.st,v 1.108 2015-02-05 14:56:51 cg Exp $'
+    ^ '$Id: TestCase.st,v 1.109 2015-02-26 04:01:33 cg Exp $'
 ! !