--- a/FileSelectionBox.st	Tue Nov 13 13:56:58 2001 +0100
+++ b/FileSelectionBox.st	Wed Nov 14 09:27:03 2001 +0100
@@ -366,7 +366,10 @@
 directory:directoryName
     "change the directory shown in the list."
 
-    selectionList directory:directoryName
+    selectionList directory:directoryName.
+    selectingDirectory ifTrue:[
+        enterField contents:directoryName asFilename pathName
+    ]
 !
 
 fileName
@@ -750,5 +753,5 @@
 !FileSelectionBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/FileSelectionBox.st,v 1.61 2001-10-12 16:03:35 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/FileSelectionBox.st,v 1.62 2001-11-14 08:27:03 penk Exp $'
 ! !