--- a/TestCase.st	Mon Jul 04 18:16:29 2011 +0200
+++ b/TestCase.st	Tue Jul 05 14:02:42 2011 +0200
@@ -15,9 +15,6 @@
 "
 !
 
-TestCase comment:''
-!
-
 
 !TestCase class methodsFor:'initialization'!
 
@@ -224,6 +221,13 @@
     "Created: / 13-06-2011 / 16:46:09 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
+sunitSelectors
+
+    ^self selectors
+
+    "Modified: / 11-09-2010 / 15:07:51 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
 sunitVersion
 	^'4.0'
 !
@@ -320,6 +324,10 @@
     "Created: / 15-03-2010 / 19:15:15 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
+postAutoload
+    self projectDefinitionClass loadExtensions
+!
+
 removeSelector: selector from: collection
 
     "Removes given selector from collection. Answers
@@ -360,10 +368,10 @@
 !TestCase class methodsFor:'testing'!
 
 isAbstract
-	"Override to true if a TestCase subclass is Abstract and should not have
-	TestCase instances built from it"
+        "Override to true if a TestCase subclass is Abstract and should not have
+        TestCase instances built from it"
 
-	^self sunitName = #TestCase
+        ^ self == TestCase
 !
 
 isTestCaseLike
@@ -742,7 +750,7 @@
 !TestCase class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.58 2011-06-29 19:15:49 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.59 2011-07-05 12:02:42 stefan Exp $'
 !
 
 version_SVN