--- a/TestCase.st	Mon Aug 01 09:42:45 2011 +0200
+++ b/TestCase.st	Mon Aug 01 10:22:29 2011 +0200
@@ -757,18 +757,19 @@
     "3. Execute after block"
     "This code is ugly in Smalltalk/X but it is so because
      it is more portable - numArgs in ANSI (?)"
-    before numArgs == 2 ifTrue:[
-        before value: self value: result                
+    after numArgs == 2 ifTrue:[
+        after value: self value: result                
     ] ifFalse:[
-        before numArgs == 1 ifTrue:[
-            before value: self
+        after numArgs == 1 ifTrue:[
+            after value: self
         ] ifFalse:[
-            before value.
+            after value.
         ]
     ].
     ^result
 
     "Created: / 29-07-2011 / 12:04:53 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 01-08-2011 / 10:22:09 / cg"
 !
 
 run: aResult beforeEachTestCaseDo:block1 afterEachTestCaseDo:block2
@@ -817,7 +818,7 @@
 !TestCase class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.65 2011-07-30 08:11:19 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.66 2011-08-01 08:22:29 cg Exp $'
 !
 
 version_SVN