--- a/TestResult.st	Sun Aug 07 13:12:09 2011 +0200
+++ b/TestResult.st	Sun Aug 07 13:12:28 2011 +0200
@@ -190,7 +190,21 @@
          get returned back into the main stream sunit package..."
         
         backtrace := String streamContents:[:s |
-                        detail suspendedContext printAllOn:s
+                        |con topReached|
+
+                        "could use printAllOn:s, but noone is interested in contexts above the
+                         testcase's runtest context"
+                        topReached := false.
+                        con := detail suspendedContext.
+                        [ 
+                            con notNil and:[topReached not]
+                        ] whileTrue:[
+                            con printOn:s.
+                            s cr.
+                            topReached := (con selector == testcase selector)
+                                          and:[con receiver == testcase].
+                            con := con sender.
+                        ]
                      ].
         testcase exceptionDetail:(Dictionary new
                                     at:#exception put:detail signal;
@@ -329,11 +343,11 @@
 !TestResult class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestResult.st,v 1.30 2011-08-07 10:50:59 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestResult.st,v 1.31 2011-08-07 11:12:28 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestResult.st,v 1.30 2011-08-07 10:50:59 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestResult.st,v 1.31 2011-08-07 11:12:28 cg Exp $'
 !
 
 version_SVN