--- a/TestCase.st	Tue Oct 23 21:01:54 2012 +0200
+++ b/TestCase.st	Tue Oct 23 21:02:00 2012 +0200
@@ -702,7 +702,7 @@
 
 run
 
-    ^self run: TestResult new
+    ^self run: TestResult defaultResultClass new
 
     "Modified: / 29-07-2011 / 12:07:57 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
@@ -836,11 +836,11 @@
 !TestCase class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.86 2012-10-15 19:46:11 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.87 2012-10-23 19:02:00 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.86 2012-10-15 19:46:11 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.87 2012-10-23 19:02:00 cg Exp $'
 !
 
 version_SVN