--- a/Tools_BrowserList.st	Fri Aug 11 14:43:12 2006 +0200
+++ b/Tools_BrowserList.st	Fri Aug 11 15:43:30 2006 +0200
@@ -994,13 +994,23 @@
 !
 
 isClass:aClass shownWithPackageFilter:packageFilter
-     packageFilter isNil ifTrue:[^ true].
-     (packageFilter includes:aClass package) ifTrue:[^ true].
+    |classPackage|
+
+    packageFilter isNil ifTrue:[^ true].
+    classPackage := aClass package.
+    (packageFilter includes:classPackage) ifTrue:[^ true].
+
+    aClass instAndClassSelectorsAndMethodsDo:[:sel :mthd |
+        |mthdPackage|
 
-     aClass instAndClassSelectorsAndMethodsDo:[:sel :mthd |
-	 (packageFilter includes:mthd package) ifTrue:[^ true].
-     ].
-     ^ false
+        mthdPackage := mthd package.
+        mthdPackage ~~ classPackage ifTrue:[
+            (packageFilter includes:mthdPackage) ifTrue:[^ true].
+        ].
+    ].
+    ^ false
+
+    "Modified: / 11-08-2006 / 15:15:28 / cg"
 !
 
 makeDependent
@@ -1249,5 +1259,5 @@
 !BrowserList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_BrowserList.st,v 1.14 2006-03-28 17:44:50 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_BrowserList.st,v 1.15 2006-08-11 13:43:30 cg Exp $'
 ! !