--- a/TestCase.st	Tue Jul 05 18:22:57 2011 +0200
+++ b/TestCase.st	Tue Jul 05 18:23:57 2011 +0200
@@ -15,6 +15,9 @@
 "
 !
 
+TestCase comment:''
+!
+
 
 !TestCase class methodsFor:'initialization'!
 
@@ -24,10 +27,6 @@
     "
      self initialize
     "
-!
-
-postAutoload
-    self projectDefinitionClass loadExtensions
 ! !
 
 !TestCase class methodsFor:'instance creation'!
@@ -225,13 +224,6 @@
     "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'
 !
@@ -368,10 +360,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 == TestCase
+	^self sunitName = #TestCase
 !
 
 isTestCaseLike
@@ -756,7 +748,7 @@
 !TestCase class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.61 2011-07-05 16:22:57 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.62 2011-07-05 16:23:57 cg Exp $'
 !
 
 version_SVN