# HG changeset patch
# User tz
# Date 886695168 -3600
# Node ID 75baf39687081cfc3a451c4dcd9dba4e283d6e6c
# Parent  17f3d679fa72ef61a8ffba8a70dcc66f30cc1ba1
set real directory path

diff -r 17f3d679fa72 -r 75baf3968708 FileSelectionBrowser.st
--- a/FileSelectionBrowser.st	Thu Feb 05 17:02:55 1998 +0100
+++ b/FileSelectionBrowser.st	Thu Feb 05 17:12:48 1998 +0100
@@ -219,7 +219,7 @@
 
 directory: aDirectory
 
-    directory := (aDirectory ? Filename homeDirectory) asFilename asAbsoluteFilename name
+    directory := (aDirectory ? Filename homeDirectory) asFilename asAbsoluteFilename directoryName
 !
 
 directoryView
@@ -336,7 +336,7 @@
     directoryView fileFilterSelectAction: [:fileFilter|
     self valueOfFileName value: (
         ((self valueOfFileName value ? 'unknown') readStream upTo: $.), '.',
-        (fileFilter copy reverse readStream upTo: $.) reverse)].
+        (fileFilter copy reverse readStream upTo: $.) reverse)]. 
     self directoryTreeView selectPathname: directory ? self class lastSelection ? '/'.
 
     self directoryInputField entryCompletionBlock: