--- a/Tools_HierarchicalProjectList.st	Mon Sep 02 19:56:33 2013 +0200
+++ b/Tools_HierarchicalProjectList.st	Tue Sep 03 16:14:28 2013 +0100
@@ -248,7 +248,7 @@
 	].
     ].
 
-"/    Smalltalk allClassesDo:[:eachClass |
+"/    environment allClassesDo:[:eachClass |
 "/        |package|
 "/
 "/        package := eachClass package asSymbol.