--- a/Tools__HierarchicalProjectList.st	Fri Sep 06 12:08:37 2013 +0100
+++ b/Tools__HierarchicalProjectList.st	Fri Sep 06 15:49:08 2013 +0100
@@ -248,7 +248,7 @@
 	].
     ].
 
-"/    Smalltalk allClassesDo:[:eachClass |
+"/    environment allClassesDo:[:eachClass |
 "/        |package|
 "/
 "/        package := eachClass package asSymbol.
@@ -518,11 +518,11 @@
 !HierarchicalProjectList class methodsFor:'documentation'!
 
 version
-    ^ '$Id: Tools__HierarchicalProjectList.st 8083 2013-01-14 11:48:37Z vranyj1 $'
+    ^ '$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.10 2011/07/20 12:54:00 cg Exp §'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_HierarchicalProjectList.st,v 1.13 2013-09-05 10:46:11 vrany Exp $'
 !
 
 version_HG