--- a/Tools_HierarchicalClassCategoryList.st	Tue Mar 14 14:12:17 2006 +0100
+++ b/Tools_HierarchicalClassCategoryList.st	Tue Mar 14 14:12:28 2006 +0100
@@ -22,8 +22,8 @@
 	category:'Interface-Browsers-New'
 !
 
-HierarchicalItem subclass:#ClassCategoryItem
-	instanceVariableNames:'label category'
+HierarchicalItemWithLabel subclass:#ClassCategoryItem
+	instanceVariableNames:'category'
 	classVariableNames:''
 	poolDictionaries:''
 	privateIn:HierarchicalClassCategoryList
@@ -397,18 +397,10 @@
 
 icon
     ^ nil "/ SystemBrowser packageIcon
-!
-
-label
-    ^ label
-!
-
-label:something
-    label := something.
 ! !
 
 !HierarchicalClassCategoryList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_HierarchicalClassCategoryList.st,v 1.6 2005-02-02 11:01:51 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_HierarchicalClassCategoryList.st,v 1.7 2006-03-14 13:12:28 cg Exp $'
 ! !