--- a/ProjectView.st	Thu Apr 22 16:09:57 1999 +0200
+++ b/ProjectView.st	Thu Apr 22 18:40:27 1999 +0200
@@ -465,7 +465,9 @@
         (allClasses := Smalltalk allClasses) do:[:aClass |
             |p|
 
-"/            aClass isLoaded ifTrue:[
+            (aClass isNamespace 
+"/            or:[aClass isLoaded not]
+            ) ifFalse:[
                 p := aClass package.
                 p size == 0 ifTrue:[
                     p := 'no package'.
@@ -486,7 +488,7 @@
                     ].
                     existingPackages add:(p asString).
                 ].
-"/            ]
+            ].
         ].
 
         box := ListSelectionBox title:(resources string:'PROJECT_PACKAGENAME') withCRs.
@@ -764,5 +766,5 @@
 !ProjectView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/ProjectView.st,v 1.44 1999-04-22 14:09:57 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/ProjectView.st,v 1.45 1999-04-22 16:40:27 cg Exp $'
 ! !