--- a/TestCase.st	Wed Feb 15 14:52:35 2006 +0100
+++ b/TestCase.st	Mon Feb 20 11:28:55 2006 +0100
@@ -596,7 +596,9 @@
     ] ensure:[
         Error ,  AbortOperationRequest
             handle:[:ex |
-                Transcript showCR:'Error during tearDown: "', ex description, '" - ignored'. 
+                ex signal ~~ AbortOperationRequest ifTrue:[
+                    Transcript showCR:'Error during tearDown: "', ex description, '" - ignored'. 
+                ]
             ]
             do:[ self tearDown ]
     ]
@@ -627,7 +629,7 @@
 !TestCase class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.40 2006-02-15 13:52:35 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.41 2006-02-20 10:28:55 cg Exp $'
 ! !
 
 TestCase initialize!