--- a/FileSelectionItem.st	Thu Sep 24 20:50:56 1998 +0200
+++ b/FileSelectionItem.st	Thu Sep 24 20:51:20 1998 +0200
@@ -308,11 +308,11 @@
     contents    := aFilename.
     (f := aFilename asFilename) isRootDirectory ifTrue:[
         name := f name.
-        (name endsWith:Filename separator) ifTrue:[
-            name ~= Filename separator asString ifTrue:[
-                name := name copyWithoutLast:1.
-            ]
-        ]
+"/        (name endsWith:Filename separator) ifTrue:[
+"/            name ~= Filename separator asString ifTrue:[
+"/                name := name copyWithoutLast:1.
+"/            ]
+"/        ]
     ] ifFalse:[
         name        := aBaseName.
     ].
@@ -331,7 +331,7 @@
         self match:nil                          "/ setup matchAction new
     ]
 
-    "Modified: / 24.9.1998 / 17:01:05 / cg"
+    "Modified: / 24.9.1998 / 19:19:57 / cg"
 !
 
 matchAction
@@ -675,5 +675,5 @@
 !FileSelectionItem class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/FileSelectionItem.st,v 1.13 1998-09-24 16:41:24 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/FileSelectionItem.st,v 1.14 1998-09-24 18:51:20 cg Exp $'
 ! !