--- a/TestSuite.st	Sat Jul 30 12:40:46 2011 +0200
+++ b/TestSuite.st	Sat Jul 30 12:40:58 2011 +0200
@@ -119,6 +119,7 @@
 
 run:result beforeEachDo: before afterEachDo: after
 
+    result timestamp:(Timestamp now).
     result name:name.
     [
         self tests do:[:each |
@@ -134,8 +135,8 @@
 
     ^result
 
-    "Modified: / 06-07-2011 / 14:24:45 / cg"
     "Modified: / 29-07-2011 / 12:09:25 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 30-07-2011 / 12:40:12 / cg"
 !
 
 run:aResult beforeEachTestCaseDo:block1 afterEachTestCaseDo:block2
@@ -175,7 +176,7 @@
 !TestSuite class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestSuite.st,v 1.22 2011-07-29 11:14:04 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestSuite.st,v 1.23 2011-07-30 10:40:58 cg Exp $'
 !
 
 version_SVN