--- a/TestResult.st	Fri Apr 19 11:39:24 2013 +0200
+++ b/TestResult.st	Fri Apr 19 11:39:27 2013 +0200
@@ -496,14 +496,14 @@
         ] sunitOn:self exceptions do: [:ex |
             self rememberEndTime.
             self rememberException: ex.
-            (AbortSignal accepts: ex signal) ifTrue:[ex reject].
-            (TerminateProcessRequest accepts: ex signal) ifTrue:[ex reject].
+            (AbortSignal accepts: ex creator) ifTrue:[ex reject].
+            (TerminateProcessRequest accepts: ex creator) ifTrue:[ex reject].
             ex sunitAnnounce:aTestCase toResult:self.
 self halt.    
         ].
     ] sunitOn: self exceptions do:[:ex|
-        (AbortSignal accepts: ex signal) ifTrue:[ex reject].
-        (TerminateProcessRequest accepts: ex signal) ifTrue:[ex reject].
+        (AbortSignal accepts: ex creator) ifTrue:[ex reject].
+        (TerminateProcessRequest accepts: ex creator) ifTrue:[ex reject].
 "/ the stuff below is rubbish - it clears out the info as collected above!!
 "/        self remove: aTestCase.
 "/self halt.
@@ -556,11 +556,11 @@
 !TestResult class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestResult.st,v 1.52 2013-04-03 13:25:26 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestResult.st,v 1.53 2013-04-19 09:39:27 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestResult.st,v 1.52 2013-04-03 13:25:26 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestResult.st,v 1.53 2013-04-19 09:39:27 cg Exp $'
 !
 
 version_SVN