--- a/FileBrowser.st	Mon Nov 09 10:11:13 2009 +0100
+++ b/FileBrowser.st	Tue Nov 10 20:36:11 2009 +0100
@@ -6994,9 +6994,10 @@
         "/ or match the current pattern
 
         matchPattern := filterField contents.
-        (matchPattern notNil and:[
-         matchPattern isEmpty not and:[
-         matchPattern ~= '*']]) ifTrue:[
+        (matchPattern notNil 
+        and:[ matchPattern notEmpty 
+        and:[ matchPattern ~= '*']]) 
+        ifTrue:[
              ignoreCase := Filename isCaseSensitive not.
              files := files select:[:aName | 
                          ((currentDirectory construct:aName) isDirectory)
@@ -7487,9 +7488,9 @@
 !FileBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.636 2009-10-28 18:53:45 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.637 2009-11-10 19:36:11 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.636 2009-10-28 18:53:45 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.637 2009-11-10 19:36:11 cg Exp $'
 ! !