--- a/FileSelectionList.st	Sat Aug 31 19:19:38 2013 +0200
+++ b/FileSelectionList.st	Sat Aug 31 21:29:52 2013 +0200
@@ -1014,7 +1014,7 @@
 
                         (pattern size > 0) ifTrue:[ 
                             pattern ~= '*' ifTrue:[
-                                matching := pattern compoundMatch:name ignoreCase:ignoreCase
+                                matching := pattern compoundMatch:name caseSensitive:ignoreCase not
                             ]
                         ].
                                         
@@ -1091,6 +1091,6 @@
 !FileSelectionList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/FileSelectionList.st,v 1.58 2013-04-25 13:09:33 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/FileSelectionList.st,v 1.59 2013-08-31 19:29:52 cg Exp $'
 ! !