--- a/TestCase.st	Sun Aug 21 15:03:34 2011 +0200
+++ b/TestCase.st	Sun Aug 21 15:06:47 2011 +0200
@@ -64,16 +64,16 @@
 
     answer := Set withAll: self testSelectors.
     self shouldInheritSelectors ifTrue:[
-        pivotClass := self.
+        pivotClass := self superclass.
         lookupRoot := self lookupHierarchyRoot.
         [pivotClass == lookupRoot] whileFalse:[
+            answer addAll: pivotClass testSelectors.
             pivotClass := pivotClass superclass.
-            answer addAll: pivotClass testSelectors
         ]
     ].
     ^answer asSortedCollection asOrderedCollection
 
-    "Modified: / 21-08-2011 / 15:01:47 / cg"
+    "Modified: / 21-08-2011 / 15:06:11 / cg"
 !
 
 forgetLastTestRunResult
@@ -786,11 +786,11 @@
 !TestCase class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.80 2011-08-21 13:03:34 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.81 2011-08-21 13:06:47 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.80 2011-08-21 13:03:34 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.81 2011-08-21 13:06:47 cg Exp $'
 !
 
 version_SVN