--- a/FileBrowser.st	Mon Dec 14 14:44:34 2009 +0100
+++ b/FileBrowser.st	Mon Dec 14 14:59:09 2009 +0100
@@ -1479,7 +1479,8 @@
 
 anyFilesPresentWithSuffix:suffix
     ^ currentDirectory notNil
-      and:[currentDirectory directoryContents contains:[:f| f asFilename suffix = suffix]]
+      and:[currentDirectory exists
+      and:[currentDirectory directoryContents contains:[:f| f asFilename suffix = suffix]]]
 !
 
 anySTFilesPresent
@@ -7488,9 +7489,9 @@
 !FileBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.637 2009-11-10 19:36:11 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.638 2009-12-14 13:59:09 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.637 2009-11-10 19:36:11 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.638 2009-12-14 13:59:09 cg Exp $'
 ! !