--- a/TestCase.st	Tue Jun 28 14:39:06 2011 +0200
+++ b/TestCase.st	Wed Jun 29 20:38:32 2011 +0200
@@ -634,6 +634,12 @@
     ^ true
 !
 
+isTestCaseLike
+    ^ true
+
+    "Created: / 29-06-2011 / 20:37:57 / cg"
+!
+
 isTestSuite
     ^ false
 ! !
@@ -797,12 +803,8 @@
 
 !TestCase class methodsFor:'documentation'!
 
-version
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.56 2010-05-03 15:48:52 cg Exp $'
-!
-
 version_CVS
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.56 2010-05-03 15:48:52 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.57 2011-06-29 18:38:32 cg Exp $'
 ! !
 
 TestCase initialize!