--- a/TestCaseOutcome.st	Mon Nov 05 22:03:08 2012 +0100
+++ b/TestCaseOutcome.st	Mon Nov 05 22:03:40 2012 +0100
@@ -120,8 +120,10 @@
 !
 
 result:aSymbol
-
-    (#(pass fail error) includes: aSymbol) ifFalse:[
+    ((aSymbol ~= TestResult statePass) 
+    and:[ aSymbol ~= TestResult stateFail 
+    and:[ aSymbol ~= TestResult stateError
+    and:[ aSymbol ~= TestResult stateSkip ]]]) ifTrue:[
         self error:'invalid result'.
     ].
     result := aSymbol.
@@ -188,5 +190,5 @@
 !TestCaseOutcome class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCaseOutcome.st,v 1.3 2011-08-20 22:07:55 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCaseOutcome.st,v 1.4 2012-11-05 21:03:40 cg Exp $'
 ! !