--- a/TestResult.st	Fri Aug 05 16:43:17 2011 +0200
+++ b/TestResult.st	Sat Aug 06 09:34:48 2011 +0200
@@ -139,11 +139,14 @@
         "JV2011-08-03: TODO: Validate the comment above with GS,
          possibly change name to 'exception'"
 
+        testcase exceptionInfoString:(self exceptionInfoStringFor:detail in:testcase).
+
         testcase class rememberErrorTest: testcase selector.
         ^self errors add: testcase
 
     "Modified: / 11-09-2010 / 17:19:24 / Jan Vrany <jan.vrany@fit.cvut.cz>"
     "Created: / 03-08-2011 / 13:50:42 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 06-08-2011 / 09:33:53 / cg"
 !
 
 addFailure: testcase detail: detail
@@ -156,10 +159,12 @@
         "JV2011-08-03: TODO: Validate the comment above with GS,
          possibly change name to 'exception'"
 
+        testcase exceptionInfoString:(self exceptionInfoStringFor:detail in:testcase).
         testcase class rememberFailedTest: testcase selector.
         ^self failures add: testcase
 
     "Created: / 03-08-2011 / 13:53:18 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 06-08-2011 / 09:34:17 / cg"
 !
 
 addPass: testcase
@@ -245,18 +250,18 @@
 !
 
 runCase:aTestCase 
-    
+    "run a testcase, catching exceptions"
+
     [ 
         self performCase:aTestCase.
         self addPass:aTestCase 
     ] sunitOn:self exceptions do: [:ex | 
-        aTestCase exceptionInfoString:(self exceptionInfoStringFor:ex in:aTestCase).
         ex sunitAnnounce:aTestCase toResult:self 
     ].
 
-    "Modified: / 02-08-2011 / 18:10:09 / cg"
     "Modified: / 03-08-2011 / 14:08:08 / Jan Vrany <jan.vrany@fit.cvut.cz>"
     "Modified (format): / 03-08-2011 / 17:20:12 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 06-08-2011 / 09:32:32 / cg"
 ! !
 
 !TestResult methodsFor:'testing'!
@@ -293,11 +298,11 @@
 !TestResult class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestResult.st,v 1.26 2011-08-03 16:44:41 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestResult.st,v 1.27 2011-08-06 07:34:48 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestResult.st,v 1.26 2011-08-03 16:44:41 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestResult.st,v 1.27 2011-08-06 07:34:48 cg Exp $'
 !
 
 version_SVN