--- a/TestCase.st	Mon Jan 23 22:59:02 2006 +0100
+++ b/TestCase.st	Wed Feb 15 14:52:35 2006 +0100
@@ -590,9 +590,16 @@
 !
 
 runCase
-
-        [self setUp.
-        self performTest] ensure: [self tearDown]
+    [
+        self setUp.
+        self performTest
+    ] ensure:[
+        Error ,  AbortOperationRequest
+            handle:[:ex |
+                Transcript showCR:'Error during tearDown: "', ex description, '" - ignored'. 
+            ]
+            do:[ self tearDown ]
+    ]
 !
 
 runCaseAsFailure
@@ -620,7 +627,7 @@
 !TestCase class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.39 2005-08-18 12:34:52 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.40 2006-02-15 13:52:35 cg Exp $'
 ! !
 
 TestCase initialize!