--- a/TestCase.st	Thu Dec 14 14:08:04 2000 +0100
+++ b/TestCase.st	Thu Dec 14 14:08:21 2000 +0100
@@ -124,12 +124,12 @@
 !TestCase methodsFor:'Private'!
 
 executeShould: aBlock inScopeOf: anExceptionalEvent 
-	[[aBlock value]
-		sunitOn: anExceptionalEvent
-		do: [:ex | ^true]]
-			sunitOn: TestResult error
-			do: [:ex | ^false].
-	^false.
+        [[aBlock value]
+                on: anExceptionalEvent
+                do: [:ex | ^true]]
+                        on: TestResult error
+                        do: [:ex | ^false].
+        ^false.
 
     "Modified: / 21.6.2000 / 10:03:03 / Sames"
 !
@@ -193,6 +193,6 @@
 !TestCase class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.8 2000-12-10 13:19:13 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.9 2000-12-14 13:08:19 cg Exp $'
 ! !
 TestCase initialize!