--- a/FileSelectionItem.st	Thu Sep 24 16:53:17 1998 +0200
+++ b/FileSelectionItem.st	Thu Sep 24 18:41:24 1998 +0200
@@ -309,7 +309,9 @@
     (f := aFilename asFilename) isRootDirectory ifTrue:[
         name := f name.
         (name endsWith:Filename separator) ifTrue:[
-            name := name copyWithoutLast:1.
+            name ~= Filename separator asString ifTrue:[
+                name := name copyWithoutLast:1.
+            ]
         ]
     ] ifFalse:[
         name        := aBaseName.
@@ -329,7 +331,7 @@
         self match:nil                          "/ setup matchAction new
     ]
 
-    "Modified: / 24.9.1998 / 16:05:13 / cg"
+    "Modified: / 24.9.1998 / 17:01:05 / cg"
 !
 
 matchAction
@@ -594,7 +596,7 @@
     showIndicator := false.
 
     self directoryIsLocked ifFalse:[
-        Cursor wait showWhile:[
+        Cursor read showWhile:[
             directory := DirectoryContents directoryNamed:contents.
 
             directory isNil ifTrue:[
@@ -620,7 +622,7 @@
     ].
   ^ list
 
-    "Modified: / 24.9.1998 / 15:52:53 / cg"
+    "Modified: / 24.9.1998 / 17:51:48 / cg"
 ! !
 
 !FileSelectionItem::Directory class methodsFor:'documentation'!
@@ -673,5 +675,5 @@
 !FileSelectionItem class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/FileSelectionItem.st,v 1.12 1998-09-24 14:50:41 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/FileSelectionItem.st,v 1.13 1998-09-24 16:41:24 cg Exp $'
 ! !