--- a/TestCase.st	Mon Nov 05 22:03:40 2012 +0100
+++ b/TestCase.st	Mon Nov 05 22:04:14 2012 +0100
@@ -135,7 +135,7 @@
     lastOutcomes isNil ifTrue:[^nil].
     lastOutcomes size ~= self testSelectors size ifTrue:[^nil].
     lastOutcomes do:[:outcome|
-        outcome result == #pass ifFalse:[
+        outcome result == (TestResult statePass) ifFalse:[
             ^false
         ].
     ].
@@ -623,7 +623,7 @@
         (testCase := self class selector: testSelector) runCase.
         outcome := TestCaseOutcome new.
         outcome testCase: testCase.
-        outcome result: #pass.
+        outcome result: (TestResult statePass).
         outcome remember.
     ] sunitEnsure: [
         TestResource resetResources: self resources
@@ -836,11 +836,11 @@
 !TestCase class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.87 2012-10-23 19:02:00 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.88 2012-11-05 21:04:14 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.87 2012-10-23 19:02:00 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.88 2012-11-05 21:04:14 cg Exp $'
 !
 
 version_SVN