--- a/Tools_ProjectList.st	Fri Nov 10 14:26:40 2006 +0100
+++ b/Tools_ProjectList.st	Fri Nov 10 17:22:54 2006 +0100
@@ -483,7 +483,7 @@
             ^ Iterator on:[:whatToDo |
                                Smalltalk allClassesDo:[:cls |
                                    cls isLoaded ifTrue:[
-                                       (cls isNameSpace not or:[cls == Smalltalk]) ifTrue:[
+                                       (cls isRealNameSpace not) ifTrue:[
                                            whatToDo value:cls
                                        ]
                                    ]
@@ -492,7 +492,7 @@
         ].
         ^ Iterator on:[:whatToDo |
                            Smalltalk allClassesDo:[:cls |
-                               (cls isNameSpace not or:[cls == Smalltalk]) ifTrue:[
+                               (cls isRealNameSpace not) ifTrue:[
                                    whatToDo value:cls
                                ]
                            ]
@@ -507,7 +507,7 @@
                            Smalltalk allClassesDo:[:cls |
                                (hideUnloadedClasses not or:[cls isLoaded])
                                ifTrue:[
-                                   (cls isNameSpace not or:[cls == Smalltalk]) ifTrue:[
+                                   (cls isRealNameSpace not) ifTrue:[
                                        doInclude := (thePackage = cls package).
                                        doInclude ifFalse:[
                                             cls isJavaClass ifFalse:[
@@ -528,7 +528,7 @@
                        Smalltalk allClassesDo:[:cls |
                            (hideUnloadedClasses not or:[cls isLoaded])
                            ifTrue:[
-                               (cls isNameSpace not or:[cls == Smalltalk]) ifTrue:[
+                               (cls isRealNameSpace not) ifTrue:[
                                    doInclude := (selectedPackages includes:cls package).
                                    doInclude ifFalse:[
                                         cls isJavaClass ifFalse:[
@@ -545,7 +545,7 @@
                   ]
 
     "Created: / 17-02-2000 / 23:49:37 / cg"
-    "Modified: / 17-08-2006 / 15:08:32 / cg"
+    "Modified: / 10-11-2006 / 17:15:15 / cg"
 ! !
 
 !ProjectList methodsFor:'private'!
@@ -576,7 +576,7 @@
         Smalltalk allClassesDo:[:eachClass |
             |cls pkg p classPackage|
 
-            (eachClass isNameSpace not or:[eachClass == Smalltalk]) ifTrue:[
+            (eachClass isRealNameSpace not) ifTrue:[
 
                 (hideUnloaded not or:[eachClass isLoaded]) ifTrue:[
                     cls := eachClass theNonMetaclass.
@@ -623,6 +623,8 @@
         generator do:[:prj | allProjects add:prj].
     ].
     ^ allProjects asOrderedCollection.
+
+    "Modified: / 10-11-2006 / 17:14:48 / cg"
 !
 
 defaultSlaveModeValue
@@ -806,5 +808,5 @@
 !ProjectList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_ProjectList.st,v 1.27 2006-10-18 11:11:24 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_ProjectList.st,v 1.28 2006-11-10 16:22:54 cg Exp $'
 ! !