--- a/TestCase.st	Sun May 27 12:51:18 2012 +0200
+++ b/TestCase.st	Mon Jun 04 16:20:17 2012 +0200
@@ -153,25 +153,27 @@
     lastOutcomes isNil ifTrue:[
         lastOutcomes := OrderedCollection new.
     ].
+
     "Not a nice code, but portable..."
     1 to: lastOutcomes size do:[:i|
         | each |
 
         each := lastOutcomes at: i.
-        (each testCase class == outcome testCase class and:
-            [each testCase selector == outcome testCase selector]) ifTrue:[
-                lastOutcomes at: i put: outcome.
-                each result ~= outcome result ifTrue:[
-                    self lastTestRunResultChanged: outcome selector. 
-                ].
-                ^self.                    
+        (each testCase class name = outcome testCase class name
+        and: [each testCase selector == outcome testCase selector]) ifTrue:[
+            lastOutcomes at: i put: outcome.
+            each result ~= outcome result ifTrue:[
+                self lastTestRunResultChanged: outcome selector. 
             ].
+            ^self.                    
+        ].
     ].
     lastOutcomes add: outcome.
     self lastTestRunResultChanged: outcome selector.
     ^self
 
     "Created: / 20-08-2011 / 12:43:12 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 04-06-2012 / 16:19:07 / cg"
 !
 
 rememberedOutcomeFor: selector
@@ -205,13 +207,14 @@
     lastOutcomes isNil ifTrue:[^false].
     ^(lastOutcomes 
         detect:[:each|
-            each testCase class == self
+            each testCase class name = self name
                 and:[each testCase selector == selector
                     and:[each result == result]]
         ]
         ifNone: [nil]) notNil
 
     "Created: / 20-08-2011 / 16:15:30 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 04-06-2012 / 16:12:17 / cg"
 !
 
 testSelectorError:selector
@@ -831,11 +834,11 @@
 !TestCase class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.84 2011-11-17 20:05:34 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.85 2012-06-04 14:20:17 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.84 2011-11-17 20:05:34 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.85 2012-06-04 14:20:17 cg Exp $'
 !
 
 version_SVN