--- a/Tools_HierarchicalClassCategoryList.st	Thu Apr 25 15:10:08 2013 +0200
+++ b/Tools_HierarchicalClassCategoryList.st	Thu Apr 25 15:10:14 2013 +0200
@@ -159,22 +159,22 @@
 
     item:= categoryToItemDictionary at:category ifAbsent:nil.
     item isNil ifTrue:[
-	path := category asCollectionOfSubstringsSeparatedBy:$-.
+        path := category asCollectionOfSubstringsSeparatedBy:$-.
 
-	item := ClassCategoryItem new.
-	item category:category.
-	item label:(path last).
-	categoryToItemDictionary at:category put:item.
+        item := ClassCategoryItem new.
+        item category:category.
+        item label:(path last).
+        categoryToItemDictionary at:category put:item.
 
-	category size > 0 ifTrue:[
-	    "/ find the parent ...
-	    parentPath := path copyWithoutLast:1.
-	    parentCategory := parentPath asStringWith:$-.
+        category size > 0 ifTrue:[
+            "/ find the parent ...
+            parentPath := path copyButLast:1.
+            parentCategory := parentPath asStringWith:$-.
 
-	    parentItem := self addCategory:parentCategory .
+            parentItem := self addCategory:parentCategory .
 
-	    parentItem add:item sortBlock:[:i1 :i2 | i1 category asLowercase < i2 category asLowercase].
-	]
+            parentItem add:item sortBlock:[:i1 :i2 | i1 category asLowercase < i2 category asLowercase].
+        ]
     ].
     ^ item
 !
@@ -402,9 +402,10 @@
 !HierarchicalClassCategoryList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_HierarchicalClassCategoryList.st,v 1.9 2011-07-20 12:54:09 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_HierarchicalClassCategoryList.st,v 1.10 2013-04-25 13:10:14 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_HierarchicalClassCategoryList.st,v 1.9 2011-07-20 12:54:09 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_HierarchicalClassCategoryList.st,v 1.10 2013-04-25 13:10:14 stefan Exp $'
 ! !
+