--- a/TestCase.st	Thu Aug 18 13:55:52 2005 +0200
+++ b/TestCase.st	Thu Aug 18 14:34:52 2005 +0200
@@ -25,12 +25,7 @@
 !TestCase class methodsFor:'initialization'!
 
 initialize
-    "ensure, that the sunit extensions are loaded"
-
-    (Class includesSelector:#sunitName) ifFalse:[
-        Smalltalk fileIn:'extensions.st' inPackage:(self package)
-    ].    
-    TestFailure autoload
+    ResumableTestFailure autoload
 
     "
      self initialize
@@ -625,7 +620,7 @@
 !TestCase class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.38 2005-08-18 11:44:20 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.39 2005-08-18 12:34:52 stefan Exp $'
 ! !
 
 TestCase initialize!