--- a/Tools_ClassGeneratorList.st	Mon Oct 26 18:28:40 2009 +0100
+++ b/Tools_ClassGeneratorList.st	Tue Oct 27 13:50:19 2009 +0100
@@ -415,29 +415,7 @@
     allProjects := IdentitySet new.
 
     (self hideUnloadedClasses value) ifTrue:[
-        Smalltalk allClassesDo:[:eachClass |
-            |cls pkg|
-
-            eachClass isLoaded ifTrue:[
-                cls := eachClass theNonMetaclass.
-                cls isPrivate ifTrue:[
-                    cls := cls topOwningClass
-                ].
-                pkg := cls package.
-                pkg withoutSeparators size > 0 ifTrue:[
-                    allProjects add:pkg asSymbol.
-                ] ifFalse:[
-                    "/ for now, nameSpaces are not in any package;
-                    "/ this might change. Then, 0-sized packages are
-                    "/ illegal, abd the following should be enabled.
-                    "/ self halt
-                ].
-                cls methodDictionary do:[:mthd |
-                    allProjects add:mthd package asSymbol.
-                ].
-            ].
-        ].
-        allProjects := allProjects asOrderedCollection.
+        allProjects := Smalltalk allLoadedProjectIDs.
     ] ifFalse:[
         allProjects := Smalltalk allProjectIDs.
     ].
@@ -536,9 +514,9 @@
 !ClassGeneratorList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_ClassGeneratorList.st,v 1.9 2009-10-22 12:40:06 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_ClassGeneratorList.st,v 1.10 2009-10-27 12:50:19 fm Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_ClassGeneratorList.st,v 1.9 2009-10-22 12:40:06 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_ClassGeneratorList.st,v 1.10 2009-10-27 12:50:19 fm Exp $'
 ! !