--- a/TestResult.st	Sat Aug 20 17:37:09 2011 +0200
+++ b/TestResult.st	Sat Aug 20 18:36:33 2011 +0200
@@ -23,9 +23,19 @@
 !TestResult class methodsFor:'instance creation'!
 
 new
-    ^ self defaultResultClass basicNew initialize.
+
+    self sunitName == #TestCase ifTrue:[
+        ^ self defaultResultClass basicNew initialize.
+    ] ifFalse:[
+        ^ self basicNew initialize
+    ].
 
-    "Modified: / 16-08-2011 / 15:02:38 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "
+        TestResult new.
+        TestResultForRunWithDebug new.
+    "
+
+    "Modified (comment): / 20-08-2011 / 17:34:35 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !TestResult class methodsFor:'accessing'!
@@ -381,11 +391,11 @@
 !TestResult class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestResult.st,v 1.33 2011-08-16 17:55:13 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestResult.st,v 1.34 2011-08-20 16:36:33 vrany Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestResult.st,v 1.33 2011-08-16 17:55:13 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestResult.st,v 1.34 2011-08-20 16:36:33 vrany Exp $'
 !
 
 version_SVN