--- a/Project.st	Fri Apr 23 19:24:50 1999 +0200
+++ b/Project.st	Fri Apr 23 19:50:58 1999 +0200
@@ -1615,7 +1615,15 @@
 
     methods := IdentitySet new.
     Smalltalk allBehaviorsDo:[:cls |
-        (classes isNil or:[(classes includes:cls) not]) ifTrue:[
+        |classToCheck|
+
+        classToCheck := cls.
+        cls isPrivate ifTrue:[
+            classToCheck := cls topOwningClass
+        ].
+        (classes isNil 
+        or:[((classes includes:classToCheck) 
+            or:[classes includes:classToCheck name]) not]) ifTrue:[
             cls methodDictionary do:[:m |
                 m package = packageName ifTrue:[
                     methods add:m
@@ -1769,6 +1777,6 @@
 !Project class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Project.st,v 1.79 1999-04-22 16:52:33 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Project.st,v 1.80 1999-04-23 17:50:58 cg Exp $'
 ! !
 Project initialize!