--- a/TestCase.st	Wed Oct 25 19:30:46 2000 +0200
+++ b/TestCase.st	Fri Oct 27 11:38:28 2000 +0200
@@ -7,6 +7,19 @@
 	category:'SUnit'
 !
 
+!TestCase class methodsFor:'initialization'!
+
+initialize
+    "ensure, that the sunit extensions are loaded"
+
+    (Class implements:#sunitName) ifFalse:[
+        Smalltalk fileIn:'extensions.st' inPackage:(self package)
+    ].    
+
+    "
+     self initialize
+    "! !
+
 !TestCase class methodsFor:'Instance Creation'!
 
 debug: aSymbol
@@ -142,3 +155,4 @@
 
 tearDown! !
 
+TestCase initialize!