--- a/Project.st	Thu Sep 02 23:26:53 1999 +0200
+++ b/Project.st	Thu Sep 02 23:44:11 1999 +0200
@@ -1792,9 +1792,10 @@
         classes := OrderedCollection new.
         Smalltalk 
             allClassesDo:[:aClass |
-                (aClass owningClass isNil
+                (true "aClass owningClass isNil"
                 and:[aClass isMeta not
-                and:[aClass package = packageName]]) ifTrue:[
+                and:[aClass package = packageName
+                and:[aClass isNamespace not or:[aClass == Smalltalk]]]]) ifTrue:[
                     classes add:aClass
                 ]
             ].
@@ -1824,9 +1825,9 @@
         |classToCheck|
 
         classToCheck := cls.
-        cls isPrivate ifTrue:[
-            classToCheck := cls topOwningClass
-        ].
+"/        cls isPrivate ifTrue:[
+"/            classToCheck := cls topOwningClass
+"/        ].
         (classes isNil 
         or:[((classes includes:classToCheck) 
             or:[classes includes:classToCheck name]) not]) ifTrue:[
@@ -2015,6 +2016,6 @@
 !Project class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Project.st,v 1.85 1999-09-02 21:14:43 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Project.st,v 1.86 1999-09-02 21:44:11 cg Exp $'
 ! !
 Project initialize!