--- a/FileSelectionList.st	Thu Feb 05 12:21:44 1998 +0100
+++ b/FileSelectionList.st	Thu Feb 05 23:52:55 1998 +0100
@@ -10,8 +10,6 @@
  hereby transferred.
 "
 
-'From Smalltalk/X, Version:3.1.10 on 20-sep-1997 at 1:33:46 pm'                 !
-
 SelectionInListView subclass:#FileSelectionList
 	instanceVariableNames:'pattern directory timeStamp directoryId directoryName
 		directoryContents directoryFileTypes fileTypes realAction
@@ -619,7 +617,7 @@
     "set the lists contents to the filenames in the directory.
      This does not validate the change with any directoryChangeBlock."
 
-    |oldPath|
+    |oldPath f|
 
     nameOrDirectory isNil ifTrue:[
         directory := nil.
@@ -630,6 +628,10 @@
         oldPath := directory pathName.
     ].
     directory := nameOrDirectory asFilename.
+    (directory exists 
+    and:[directory isDirectory]) ifFalse:[
+        directory := Filename currentDirectory
+    ].
     directoryHolder notNil ifTrue:[directoryHolder value:directory].
     realized ifTrue:[
         (directory pathName = oldPath) ifFalse:[
@@ -1000,5 +1002,5 @@
 !FileSelectionList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/FileSelectionList.st,v 1.40 1997-10-10 19:39:30 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/FileSelectionList.st,v 1.41 1998-02-05 22:52:55 cg Exp $'
 ! !