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