--- a/FileSelectionBrowser.st	Thu Feb 05 17:12:48 1998 +0100
+++ b/FileSelectionBrowser.st	Thu Feb 05 17:20:49 1998 +0100
@@ -81,7 +81,6 @@
     ^self new
         title: aTitle;
         fileName: aPath;
-        directory: aPath;
         listOfFileFilters: fileFilters;
         open
 !
@@ -219,7 +218,7 @@
 
 directory: aDirectory
 
-    directory := (aDirectory ? Filename homeDirectory) asFilename asAbsoluteFilename directoryName
+    directory := (aDirectory ? Filename homeDirectory) asFilename asAbsoluteFilename name
 !
 
 directoryView