--- a/TestCaseOutcome.st	Thu Apr 23 03:47:43 2015 +0000
+++ b/TestCaseOutcome.st	Fri May 08 12:28:56 2015 +0200
@@ -1,5 +1,9 @@
+"{ Encoding: utf8 }"
+
 "{ Package: 'stx:goodies/sunit' }"
 
+"{ NameSpace: Smalltalk }"
+
 Object subclass:#TestCaseOutcome
 	instanceVariableNames:'testCase result properties'
 	classVariableNames:''
@@ -163,10 +167,11 @@
 !TestCaseOutcome methodsFor:'comparing'!
 
 = anotherOutcome
+    |myTestCase otherTestCase|
 
     ^(anotherOutcome isKindOf: self class) 
-        and:[self testCase class == anotherOutcome testCase class
-            and:[self testCase selector == anotherOutcome testCase selector]].
+        and:[(myTestCase := self testCase) class == (otherTestCase := anotherOutcome testCase) class
+            and:[myTestCase selector == otherTestCase selector]].
 
     "Created: / 20-08-2011 / 14:24:39 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
@@ -203,6 +208,6 @@
 !TestCaseOutcome class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCaseOutcome.st,v 1.6 2014-04-16 22:06:04 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCaseOutcome.st,v 1.7 2015-05-08 10:28:56 cg Exp $'
 ! !