--- a/TestCase.st	Mon Aug 18 14:16:09 2003 +0200
+++ b/TestCase.st	Mon Aug 25 13:44:02 2003 +0200
@@ -347,12 +347,12 @@
 !TestCase methodsFor:'private'!
 
 executeShould: aBlock inScopeOf: anExceptionalEvent 
-	[[aBlock value]
-		on: anExceptionalEvent
-		do: [:ex | ^true]]
-			on: TestResult error
-			do: [:ex | ^false].
-	^false.
+        [[aBlock value]
+                on: anExceptionalEvent
+                do: [:ex | ^true]]
+                        on: TestResult exError
+                        do: [:ex | ^false].
+        ^false.
 
     "Modified: / 21.6.2000 / 10:03:03 / Sames"
 !
@@ -447,7 +447,7 @@
 !TestCase class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.34 2003-05-09 17:42:33 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.35 2003-08-25 11:44:02 tm Exp $'
 ! !
 
 TestCase initialize!