--- a/ResourceSelectionBrowser.st	Wed Mar 25 15:12:09 2015 +0100
+++ b/ResourceSelectionBrowser.st	Wed Mar 25 15:13:47 2015 +0100
@@ -11,6 +11,8 @@
 "
 "{ Package: 'stx:libtool2' }"
 
+"{ NameSpace: Smalltalk }"
+
 SelectionBrowser subclass:#ResourceSelectionBrowser
 	instanceVariableNames:'resourceMethod resourceClass resourceSuperclass resourceTypes
 		allClasses classSelectionBlock'
@@ -812,8 +814,8 @@
             |searchArgs nonSuperclasses hierItem|
 
             false "foundClass isPrivate"
-                ifFalse: [searchArgs := foundClass withAllSuperclasses reverse]
-                ifTrue:  [searchArgs := foundClass owningClass withAllSuperclasses reverse. 
+                ifFalse: [searchArgs := foundClass withAllSuperclasses reversed]
+                ifTrue:  [searchArgs := foundClass owningClass withAllSuperclasses reversed. 
                           searchArgs add: foundClass].                                  
             (nonSuperclasses := self treeViewClassHierarchyContents allSuperclasses) notNil 
                 ifTrue: [searchArgs := searchArgs reject: [:cls| nonSuperclasses includes: cls]].