--- a/Tools_HierarchicalProjectList.st	Tue Mar 14 14:12:28 2006 +0100
+++ b/Tools_HierarchicalProjectList.st	Tue Mar 14 14:12:38 2006 +0100
@@ -23,8 +23,8 @@
 	category:'Interface-Browsers-New'
 !
 
-HierarchicalItem subclass:#ProjectItem
-	instanceVariableNames:'label packageID'
+HierarchicalItemWithLabel subclass:#ProjectItem
+	instanceVariableNames:'packageID'
 	classVariableNames:''
 	poolDictionaries:''
 	privateIn:HierarchicalProjectList
@@ -495,10 +495,6 @@
     ^ SystemBrowser packageIcon
 !
 
-label
-    ^ label
-!
-
 label:aString
     label ~= aString ifTrue:[
         label := aString.
@@ -517,5 +513,5 @@
 !HierarchicalProjectList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_HierarchicalProjectList.st,v 1.5 2005-02-02 11:03:33 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_HierarchicalProjectList.st,v 1.6 2006-03-14 13:12:38 cg Exp $'
 ! !