--- a/Project.st	Mon Oct 08 11:18:15 2001 +0200
+++ b/Project.st	Mon Oct 08 11:20:21 2001 +0200
@@ -3505,7 +3505,7 @@
         ((classes includes:classToCheck) 
         or:[classes includes:classToCheck name]) not 
         ifTrue:[
-            cls allSelectorsAndMethodsDo:[:sel :m |
+            cls instAndClassSelectorsAndMethodsDo:[:sel :m |
                 m package = packageName ifTrue:[
                     methods add:m
                 ]
@@ -3895,6 +3895,6 @@
 !Project class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Project.st,v 1.171 2001-09-18 12:41:53 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Project.st,v 1.172 2001-10-08 09:20:21 cg Exp $'
 ! !
 Project initialize!