--- a/Tools__ClassCategoryList.st	Mon Jul 15 13:16:46 2013 +0100
+++ b/Tools__ClassCategoryList.st	Tue Jul 16 17:18:09 2013 +0100
@@ -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
 !
@@ -897,7 +897,7 @@
 "/                                |s|
 "/                                s := each string.
 "/                                (s endsWith:stringForExtensions) ifTrue:[
-"/                                    s := s copyWithoutLast:(stringForExtensions size).
+"/                                    s := s copyButLast:(stringForExtensions size).
 "/                                ].
 "/                                s
 "/                        ].