--- a/TestCase.st	Tue Dec 04 10:06:25 2001 +0100
+++ b/TestCase.st	Tue Dec 04 10:06:50 2001 +0100
@@ -192,6 +192,11 @@
 	aResult runCase: self
 !
 
+run: aResult afterEachDo:block2
+        aResult runCase: self.
+        block2 value:self value:aResult.
+!
+
 runCase
 	self setUp.
 	[self perform: testSelector asSymbol] valueNowOrOnUnwindDo: [self tearDown]
@@ -215,6 +220,6 @@
 !TestCase class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.15 2001-11-21 15:04:51 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.16 2001-12-04 09:06:50 cg Exp $'
 ! !
 TestCase initialize!