diff -r 4249a6a1b252 -r de23c1b76333 FileSelectionBrowser.st
--- a/FileSelectionBrowser.st	Fri Sep 14 18:25:38 2001 +0200
+++ b/FileSelectionBrowser.st	Fri Sep 14 18:35:39 2001 +0200
@@ -516,7 +516,10 @@
         self warn:'No directory selected.'.
         ^ self
     ].
-    newSubDirName := Dialog request:'Create new directory named:'.
+    newSubDirName := Dialog 
+                        request:(resources 
+                                    string:'Create new directory named:\\in %1:' 
+                                    with:(currentDir asFilename pathName)) withCRs.
     (currentDir asFilename construct:newSubDirName) makeDirectory.
     self menuUpdate
 !