--- a/Filename.st	Sat Aug 31 21:27:54 2013 +0200
+++ b/Filename.st	Sat Aug 31 21:30:24 2013 +0200
@@ -4114,13 +4114,13 @@
      The pattern may be a simple matchPattern, or a set of
      multiple patterns separated by semicolons."
 
-    |matchers notCaseSensitive|
+    |matchers caseSensitive|
 
     matchers := aPattern asCollectionOfSubstringsSeparatedBy:$;.
-    notCaseSensitive := self class isCaseSensitive not.
+    caseSensitive := self class isCaseSensitive.
     ^ self directoryContents
         select:[:name | 
-                (matchers detect:[:p | p match:name ignoreCase:notCaseSensitive] ifNone:0) ~~ 0
+                (matchers detect:[:p | p match:name caseSensitive:caseSensitive] ifNone:0) ~~ 0
                ]
 
     "
@@ -4138,16 +4138,16 @@
      The pattern may be a simple matchPattern, or a set of
      multiple patterns separated by semicolons."
 
-    |matchers notCaseSensitive|
+    |matchers caseSensitive|
 
     matchers := aPattern asCollectionOfSubstringsSeparatedBy:$;.
-    notCaseSensitive := self class isCaseSensitive not.
+    caseSensitive := self class isCaseSensitive.
 
     ^ self directoryContents 
         select:[:name | 
                 name ~= '.'
                 and:[name ~= '..'
-                and:[(matchers detect:[:p | p match:name ignoreCase:notCaseSensitive] ifNone:0) ~~ 0]]
+                and:[(matchers detect:[:p | p match:name caseSensitive:caseSensitive] ifNone:0) ~~ 0]]
       ]
 
     "
@@ -6050,11 +6050,11 @@
 !Filename class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Filename.st,v 1.402 2013-07-29 13:38:50 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Filename.st,v 1.403 2013-08-31 19:30:24 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Filename.st,v 1.402 2013-07-29 13:38:50 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Filename.st,v 1.403 2013-08-31 19:30:24 cg Exp $'
 ! !