--- a/TestCase.st	Sun Aug 21 00:07:55 2011 +0200
+++ b/TestCase.st	Sun Aug 21 15:03:34 2011 +0200
@@ -64,7 +64,7 @@
 
     answer := Set withAll: self testSelectors.
     self shouldInheritSelectors ifTrue:[
-        pivotClass := self superclass.
+        pivotClass := self.
         lookupRoot := self lookupHierarchyRoot.
         [pivotClass == lookupRoot] whileFalse:[
             pivotClass := pivotClass superclass.
@@ -72,6 +72,8 @@
         ]
     ].
     ^answer asSortedCollection asOrderedCollection
+
+    "Modified: / 21-08-2011 / 15:01:47 / cg"
 !
 
 forgetLastTestRunResult
@@ -784,11 +786,11 @@
 !TestCase class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.79 2011-08-20 18:09:12 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.80 2011-08-21 13:03:34 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.79 2011-08-20 18:09:12 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.80 2011-08-21 13:03:34 cg Exp $'
 !
 
 version_SVN