--- a/FileSelectionItem.st	Sun Sep 21 00:55:46 1997 +0200
+++ b/FileSelectionItem.st	Wed Sep 24 06:10:11 1997 +0200
@@ -252,9 +252,7 @@
 
     children  := OrderedCollection new.
     pathName  := self pathName.
-    directory := FileDirectory new.
-    directory pathName:pathName.
-
+    directory := pathName asFilename directoryContents.
     directory do:[:aName|
         ((aName first == $.) and:[aName last == $.]) ifFalse:[
             aFilename := contents construct:aName.
@@ -353,5 +351,5 @@
 !FileSelectionItem class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/FileSelectionItem.st,v 1.4 1997-09-16 04:01:58 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/FileSelectionItem.st,v 1.5 1997-09-24 04:10:11 cg Exp $'
 ! !