--- a/TestResult.st	Wed Nov 07 02:09:14 2012 +0100
+++ b/TestResult.st	Wed Nov 07 02:09:50 2012 +0100
@@ -501,10 +501,10 @@
     ] sunitOn: self exceptions do:[:ex|
         (AbortSignal accepts: ex signal) ifTrue:[ex reject].
         (TerminateProcessRequest accepts: ex signal) ifTrue:[ex reject].
-
-        self remove: aTestCase.
-        debugged ifTrue:[ ex reject ].
-        ex sunitAnnounce:aTestCase toResult:self.
+"/ the stuff below is rubbish - it clears out the info as collected above!!
+"/        self remove: aTestCase.
+"/        debugged ifTrue:[ ex reject ].
+"/        ex sunitAnnounce:aTestCase toResult:self.
     ]
 
     "Created: / 21-08-2011 / 17:48:19 / cg"
@@ -552,11 +552,11 @@
 !TestResult class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestResult.st,v 1.48 2012-11-06 21:15:17 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestResult.st,v 1.49 2012-11-07 01:09:50 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestResult.st,v 1.48 2012-11-06 21:15:17 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestResult.st,v 1.49 2012-11-07 01:09:50 cg Exp $'
 !
 
 version_SVN