--- a/TestResultReporter.st	Wed Oct 24 17:33:04 2012 +0200
+++ b/TestResultReporter.st	Wed Oct 24 18:15:54 2012 +0200
@@ -403,7 +403,7 @@
     "Smalltalk/X dialect detection..."
     ((Smalltalk respondsTo: #isSmalltalkX) and:[Smalltalk isSmalltalkX]) ifTrue:[ 
         "exception specific description string"
-        ^ (detail at:#exception) description
+        ^ detail at:#description ifAbsent:[ (detail at:#exception) description]
     ].
 
     ^ 'no error message (no dialect specific extractor)'.
@@ -783,11 +783,11 @@
 !TestResultReporter class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestResultReporter.st,v 1.35 2012-10-24 15:33:04 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestResultReporter.st,v 1.36 2012-10-24 16:15:54 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestResultReporter.st,v 1.35 2012-10-24 15:33:04 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestResultReporter.st,v 1.36 2012-10-24 16:15:54 cg Exp $'
 !
 
 version_SVN