--- a/extensions.st	Wed Aug 03 16:31:56 2011 +0200
+++ b/extensions.st	Wed Aug 03 16:32:44 2011 +0200
@@ -30,14 +30,16 @@
 	^self name
 ! !
 
-!Exception methodsFor:'Camp Smalltalk'!
+!GenericException methodsFor:'Camp Smalltalk'!
 
 sunitAnnounce: aTestCase toResult: aTestResult
-	aTestResult addError: aTestCase.
-	self sunitExitWith: false.
+        aTestResult addError: aTestCase detail: self.
+        self sunitExitWith: false.
+
+    "Modified: / 03-08-2011 / 13:53:58 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
-!Exception methodsFor:'Camp Smalltalk'!
+!GenericException methodsFor:'Camp Smalltalk'!
 
 sunitExitWith: aValue
 	
@@ -125,5 +127,5 @@
 !stx_goodies_sunit class methodsFor:'documentation'!
 
 extensionsVersion_CVS
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/extensions.st,v 1.11 2011-07-06 14:26:11 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/sunit/extensions.st,v 1.12 2011-08-03 14:32:44 vrany Exp $'
 ! !
\ No newline at end of file