--- a/Tools_HierarchicalProjectList.st	Wed Sep 04 23:50:52 2013 +0200
+++ b/Tools_HierarchicalProjectList.st	Thu Sep 05 12:46:11 2013 +0200
@@ -248,7 +248,7 @@
 	].
     ].
 
-"/    Smalltalk allClassesDo:[:eachClass |
+"/    environment allClassesDo:[:eachClass |
 "/        |package|
 "/
 "/        package := eachClass package asSymbol.
@@ -518,10 +518,10 @@
 !HierarchicalProjectList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_HierarchicalProjectList.st,v 1.12 2013-04-25 13:10:59 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_HierarchicalProjectList.st,v 1.13 2013-09-05 10:46:11 vrany Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_HierarchicalProjectList.st,v 1.12 2013-04-25 13:10:59 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_HierarchicalProjectList.st,v 1.13 2013-09-05 10:46:11 vrany Exp $'
 ! !