--- a/TestResult.st	Sat Aug 06 11:04:00 2011 +0200
+++ b/TestResult.st	Sat Aug 06 11:13:06 2011 +0200
@@ -139,14 +139,13 @@
         "JV2011-08-03: TODO: Validate the comment above with GS,
          possibly change name to 'exception'"
 
-        testcase exceptionInfoString:(self exceptionInfoStringFor:detail in:testcase).
-
+        self rememberExceptionIn:testcase detail:detail.
         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"
+    "Modified: / 06-08-2011 / 09:46:41 / cg"
 !
 
 addFailure: testcase detail: detail
@@ -159,12 +158,12 @@
         "JV2011-08-03: TODO: Validate the comment above with GS,
          possibly change name to 'exception'"
 
-        testcase exceptionInfoString:(self exceptionInfoStringFor:detail in:testcase).
+        self rememberExceptionIn:testcase detail:detail.
         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"
+    "Modified: / 06-08-2011 / 09:55:17 / cg"
 !
 
 addPass: testcase
@@ -172,6 +171,21 @@
         ^self passed add: testcase
 
     "Modified: / 11-09-2010 / 17:19:09 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+rememberException:testcase detail:detail
+    "common for failure and error:
+     called when a test fails. testCase is the failed 
+     testcase, detail is platform specific object describing 
+     the failure. Actually, on all platforms exept GemStone, 
+     detail is an instance of an exception that caused the failure"
+
+    "for now, dialect-specific..."
+    ((Smalltalk respondsTo:#isSmalltalkX) and:[Smalltalk isSmalltalkX]) ifTrue:[
+        testcase exceptionDetail:detail.
+    ].
+
+    "Created: / 06-08-2011 / 09:44:12 / cg"
 ! !
 
 !TestResult methodsFor:'deprecated'!
@@ -298,11 +312,11 @@
 !TestResult class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestResult.st,v 1.27 2011-08-06 07:34:48 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestResult.st,v 1.28 2011-08-06 09:13:06 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestResult.st,v 1.27 2011-08-06 07:34:48 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestResult.st,v 1.28 2011-08-06 09:13:06 cg Exp $'
 !
 
 version_SVN