--- a/TestCaseOutcome.st	Mon Jul 14 21:58:21 2014 +0100
+++ b/TestCaseOutcome.st	Thu Jul 17 15:28:02 2014 +0100
@@ -73,15 +73,15 @@
     | implementor method outcomes |
 
     implementor := class.
-    [implementor notNil and:[implementor includesSelector: selector]]
-            whileFalse: [implementor := implementor superclass].
+    [implementor notNil and:[(implementor includesSelector: selector) not]]
+            whileTrue: [implementor := implementor superclass].
     implementor isNil ifTrue:[ ^ nil ].
     method := implementor compiledMethodAt: selector.                   
     outcomes := RemeberedOutcomes at: method ifAbsent:[ ^ nil ].
     ^ outcomes at: class ifAbsent: [ nil ]
 
     "Created: / 13-07-2014 / 23:56:25 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-    "Modified: / 14-07-2014 / 21:15:14 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 17-07-2014 / 14:35:02 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !TestCaseOutcome methodsFor:'accessing'!
@@ -274,6 +274,11 @@
 
 version_CVS
     ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCaseOutcome.st,v 1.6 2014-04-16 22:06:04 cg Exp $'
+!
+
+version_HG
+
+    ^ '$Changeset: <not expanded> $'
 ! !