--- a/TestCase.st	Sat Jul 30 10:11:14 2011 +0200
+++ b/TestCase.st	Sat Jul 30 10:11:19 2011 +0200
@@ -388,8 +388,9 @@
 
     result := self suite run.
     self rememberResult:result.
+    ^ result
 
-    "Modified: / 05-08-2006 / 12:33:20 / cg"
+    "Modified: / 30-07-2011 / 09:26:11 / cg"
 !
 
 shouldInheritSelectors
@@ -558,8 +559,14 @@
 !
 
 performTest
+    startTime := Timestamp now.
+    [
+        self perform: testSelector sunitAsSymbol
+    ] ensure:[
+        endTime := Timestamp now
+    ].
 
-	self perform: testSelector sunitAsSymbol
+    "Modified: / 30-07-2011 / 10:08:55 / cg"
 !
 
 setTestSelector: aSymbol
@@ -810,7 +817,7 @@
 !TestCase class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.64 2011-07-29 11:13:52 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.65 2011-07-30 08:11:19 cg Exp $'
 !
 
 version_SVN