--- a/TestCase.st	Tue May 27 23:02:05 2008 +0200
+++ b/TestCase.st	Tue May 27 23:02:12 2008 +0200
@@ -241,7 +241,7 @@
     "Override to true if a TestCase subclass is Abstract and should not have
      TestCase instances built from it"
     
-    ^ self name = #TestCase
+    ^ self == TestCase
 !
 
 rememberResult:result
@@ -722,7 +722,7 @@
 !TestCase class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.46 2008-05-26 08:34:09 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.47 2008-05-27 21:02:12 cg Exp $'
 ! !
 
 TestCase initialize!