--- a/FileBrowser.st	Mon Mar 20 09:42:56 2006 +0100
+++ b/FileBrowser.st	Mon Mar 20 09:53:29 2006 +0100
@@ -3302,7 +3302,7 @@
     queryBox := FilenameEnterBox 
                     title:(resources stringWithCRs:'Create new file:')
                     okText:(resources string:'Create')
-                    action:[:newName | newName isEmpty ifFalse:[
+                    action:[:newName | newName notEmpty ifTrue:[
                                            self doCreateFile:newName.
                                            self selectFile:newName.
                                        ]
@@ -7520,5 +7520,5 @@
 !FileBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.610 2006-03-13 15:56:26 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.611 2006-03-20 08:53:29 cg Exp $'
 ! !