--- a/Tools__NewSystemBrowser.st	Fri Apr 26 11:48:32 2013 +0200
+++ b/Tools__NewSystemBrowser.st	Fri Apr 26 11:48:53 2013 +0200
@@ -39379,7 +39379,7 @@
     directory := Dialog
                 requestDirectoryName:'Directory Where to Generate Build Support Files?'
                 default:foundPackageDir.
-    directory isNil ifTrue:[
+    directory isEmptyOrNil ifTrue:[
         ^ self.
     ].
     directory := directory asFilename.
@@ -58382,11 +58382,11 @@
 !NewSystemBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1871 2013-04-25 13:10:42 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1872 2013-04-26 09:48:53 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1871 2013-04-25 13:10:42 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1872 2013-04-26 09:48:53 cg Exp $'
 !
 
 version_SVN