--- a/Tools_ClassCategoryList.st	Wed Aug 23 11:49:53 2006 +0200
+++ b/Tools_ClassCategoryList.st	Wed Aug 23 11:49:59 2006 +0200
@@ -648,8 +648,8 @@
     ].
     ^ categories
 
-    "Created: / 5.2.2000 / 13:42:12 / cg"
-    "Modified: / 13.11.2001 / 11:32:36 / cg"
+    "Created: / 05-02-2000 / 13:42:12 / cg"
+    "Modified: / 23-08-2006 / 11:40:45 / cg"
 !
 
 listView 
@@ -697,20 +697,25 @@
 !
 
 selectedCategoriesStrings
-    |selectedCategoriesHolder selectedCategories|
+    |selectedCategoriesHolder selectedCategories stringForExtensions|
+
+    stringForExtensions := self stringForExtensions.
 
     selectedCategoriesHolder := self selectedCategories.
     selectedCategories := selectedCategoriesHolder value ? #().
+
     selectedCategories := selectedCategories 
                 collect:[:each | 
                                 |s|
                                 s := each string.
-                                (s endsWith:self stringForExtensions) ifTrue:[
-                                    s := s copyWithoutLast:(self stringForExtensions size).
+                                (s endsWith:stringForExtensions) ifTrue:[
+                                    s := s copyWithoutLast:(stringForExtensions size).
                                 ].
                                 s
                         ].
     ^ selectedCategories
+
+    "Modified: / 23-08-2006 / 11:38:26 / cg"
 !
 
 stringForExtensions
@@ -798,5 +803,5 @@
 !ClassCategoryList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_ClassCategoryList.st,v 1.12 2006-03-16 09:13:10 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_ClassCategoryList.st,v 1.13 2006-08-23 09:49:59 cg Exp $'
 ! !