--- a/Tools_ClassList.st	Sat Aug 31 21:28:57 2013 +0200
+++ b/Tools_ClassList.st	Sat Aug 31 21:32:46 2013 +0200
@@ -1219,7 +1219,7 @@
                             classesAlready add:cls.
                             (nameFilter isNil 
                               or:[ (nameFilterIncludesMatchCharacters not and:[ cls name asLowercase startsWith:lcNameFilter])
-                              or:[ (nameFilterIncludesMatchCharacters and:[nameFilter match:cls name ignoreCase:true]) ]]) ifTrue:[
+                              or:[ (nameFilterIncludesMatchCharacters and:[nameFilter match:cls name caseSensitive:false]) ]]) ifTrue:[
                                 (owner := cls owningClass) notNil ifTrue:[
                                     bucket := privateClassesPerClass 
                                                     at:owner 
@@ -2028,10 +2028,10 @@
 !ClassList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_ClassList.st,v 1.74 2013-07-04 15:20:19 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_ClassList.st,v 1.75 2013-08-31 19:32:46 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_ClassList.st,v 1.74 2013-07-04 15:20:19 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_ClassList.st,v 1.75 2013-08-31 19:32:46 cg Exp $'
 ! !