--- a/FileSelectionBrowser.st	Sat Feb 07 21:25:28 1998 +0100
+++ b/FileSelectionBrowser.st	Sat Feb 07 21:28:21 1998 +0100
@@ -360,6 +360,9 @@
         ifFalse: [self directoryInputField flash]
     ].
 
+    directoryView selectionOfFile value: 
+        (directoryView listOfFiles detect: [:row| row baseName = self valueOfFileName value] ifNone: nil).
+
     ^super postBuildWith:aBuilder
 ! !