--- a/Tools__HierarchicalClassCategoryList.st	Mon Jul 15 13:16:46 2013 +0100
+++ b/Tools__HierarchicalClassCategoryList.st	Tue Jul 16 17:18:09 2013 +0100
@@ -168,7 +168,7 @@
 
 	category size > 0 ifTrue:[
 	    "/ find the parent ...
-	    parentPath := path copyWithoutLast:1.
+	    parentPath := path copyButLast:1.
 	    parentCategory := parentPath asStringWith:$-.
 
 	    parentItem := self addCategory:parentCategory .