--- a/TestResource.st	Fri Mar 25 16:28:54 2016 +0100
+++ b/TestResource.st	Fri Mar 25 16:28:56 2016 +0100
@@ -1,5 +1,7 @@
 "{ Package: 'stx:goodies/sunit' }"
 
+"{ NameSpace: Smalltalk }"
+
 TestAsserter subclass:#TestResource
 	instanceVariableNames:'name description'
 	classVariableNames:''
@@ -73,7 +75,7 @@
 !TestResource class methodsFor:'others'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestResource.st,v 1.12 2014-06-04 11:52:18 vrany Exp $'
+    ^ '$Header$'
 ! !
 
 !TestResource class methodsFor:'private'!
@@ -122,6 +124,15 @@
 "The cloned 'self resources do: ...' line in both blocks is, I think, the best way to write this method so that its logic is clear.  The first loop resets this resource immediately, before traversing its resources;  the second traverses before adding"
 ! !
 
+!TestResource class methodsFor:'queries'!
+
+isAbstract
+	"Override to true if a TestResource subclass is Abstract and should not have
+	TestCase instances built from it"
+
+	^ self == TestResource
+! !
+
 !TestResource class methodsFor:'running'!
 
 availableFor: aTestAsserter
@@ -141,13 +152,6 @@
 
 !TestResource class methodsFor:'testing'!
 
-isAbstract
-	"Override to true if a TestResource subclass is Abstract and should not have
-	TestCase instances built from it"
-
-	^ self == TestResource
-!
-
 isAlreadyAvailable
 	^current class == self
 !
@@ -254,10 +258,10 @@
 !TestResource class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestResource.st,v 1.12 2014-06-04 11:52:18 vrany Exp $'
+    ^ '$Header$'
 !
 
 version_SVN
-    ^ '$Id: TestResource.st,v 1.12 2014-06-04 11:52:18 vrany Exp $'
+    ^ '$Id$'
 ! !