--- a/TestCase.st	Tue Mar 09 13:09:55 2010 +0100
+++ b/TestCase.st	Wed Mar 10 20:55:49 2010 +0100
@@ -566,7 +566,7 @@
 "/                do: [:ex | ^true]]
 "/                        on: TestResult exError
 "/                        do: [:ex | ^false].
-        [aBlock value]
+        aBlock
                 on: anExceptionalEvent
                 do: [:ex | ^true].
 
@@ -787,11 +787,11 @@
 !TestCase class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.53 2010-03-09 12:09:55 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.54 2010-03-10 19:55:49 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.53 2010-03-09 12:09:55 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.54 2010-03-10 19:55:49 cg Exp $'
 ! !
 
 TestCase initialize!