--- a/TestFailure.st	Wed Aug 03 18:44:41 2011 +0200
+++ b/TestFailure.st	Wed Aug 03 18:44:53 2011 +0200
@@ -17,11 +17,19 @@
 "
 ! !
 
+!TestFailure class methodsFor:'others'!
+
+version_CVS
+    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestFailure.st,v 1.7 2011-08-03 16:44:53 vrany Exp $'
+! !
+
 !TestFailure methodsFor:'Camp Smalltalk'!
 
 sunitAnnounce: aTestCase toResult: aTestResult
-	aTestResult addFailure: aTestCase.
-	self sunitExitWith: false.
+        aTestResult addFailure: aTestCase detail: self.
+        self sunitExitWith: false.
+
+    "Modified: / 03-08-2011 / 17:33:14 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !TestFailure methodsFor:'handling'!
@@ -35,7 +43,7 @@
 !TestFailure class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestFailure.st,v 1.6 2011-06-29 19:15:49 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestFailure.st,v 1.7 2011-08-03 16:44:53 vrany Exp $'
 !
 
 version_SVN