--- a/TestResult.st	Tue Sep 04 15:00:59 2001 +0200
+++ b/TestResult.st	Tue Sep 04 15:07:08 2001 +0200
@@ -118,12 +118,12 @@
                 do: 
                         [:signal | 
                         self failures add: aTestCase.
-                        signal sunitExitWith: nil]]
+                        signal returnWith: nil]]
                         on: self class error
                         do:
                                 [:signal |
                                 self errors add: aTestCase.
-                                signal sunitExitWith: nil]
+                                signal returnWith: nil]
 
     "Modified: / 21.6.2000 / 10:10:06 / Sames"
 ! !
@@ -141,5 +141,5 @@
 !TestResult class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestResult.st,v 1.4 2000-12-14 13:08:21 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestResult.st,v 1.5 2001-09-04 13:07:03 cg Exp $'
 ! !