--- a/TestCase.st	Fri Apr 19 11:39:27 2013 +0200
+++ b/TestCase.st	Fri Apr 19 11:39:28 2013 +0200
@@ -659,7 +659,7 @@
         ] sunitOn:(TestResult failure) do: [:ex |
             |con|
 
-            ex signal == TestSkipped ifTrue:[
+            ex creator == TestSkipped ifTrue:[
                 result := TestResult stateSkip.
             ] ifFalse:[
                 result := TestResult stateFail.
@@ -908,11 +908,11 @@
 !TestCase class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.98 2013-04-17 18:42:26 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.99 2013-04-19 09:39:28 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.98 2013-04-17 18:42:26 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.99 2013-04-19 09:39:28 cg Exp $'
 !
 
 version_SVN