--- a/Tools_ClassCategoryList.st	Thu Apr 25 15:12:08 2013 +0200
+++ b/Tools_ClassCategoryList.st	Thu Apr 25 15:12:26 2013 +0200
@@ -520,7 +520,7 @@
     cat = self class nameListEntryForALL ifTrue:[^ nil].
 
     (cat endsWith:(self stringForExtensions)) ifTrue:[
-        cat := cat copyWithoutLast:(self stringForExtensions size)
+        cat := cat copyButLast:(self stringForExtensions size)
     ].
     ^ cat
 !
@@ -1003,10 +1003,10 @@
 !ClassCategoryList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_ClassCategoryList.st,v 1.45 2013-04-02 09:33:11 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_ClassCategoryList.st,v 1.46 2013-04-25 13:12:26 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_ClassCategoryList.st,v 1.45 2013-04-02 09:33:11 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_ClassCategoryList.st,v 1.46 2013-04-25 13:12:26 stefan Exp $'
 ! !