--- a/Tools__ClassGeneratorList.st	Thu Mar 24 07:22:36 2016 +0000
+++ b/Tools__ClassGeneratorList.st	Sat Mar 26 07:59:34 2016 +0000
@@ -416,9 +416,9 @@
     allProjects := IdentitySet new.
 
     (self hideUnloadedClasses value) ifTrue:[
-        allProjects := environment allLoadedProjectIDs.
+        allProjects := environment allLoadedPackageIDs.
     ] ifFalse:[
-        allProjects := environment allProjectIDs.
+        allProjects := environment allPackageIDs.
     ].
 
     "/ those are simulated - in ST/X, empty projects do not
@@ -515,11 +515,11 @@
 !ClassGeneratorList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_ClassGeneratorList.st,v 1.14 2013-09-05 10:46:11 vrany Exp $'
+    ^ '$Header$'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_ClassGeneratorList.st,v 1.14 2013-09-05 10:46:11 vrany Exp $'
+    ^ '$Header$'
 !
 
 version_HG