--- a/FileSelectionItem.st	Thu Apr 25 15:12:12 2013 +0200
+++ b/FileSelectionItem.st	Thu Apr 25 15:12:17 2013 +0200
@@ -9,9 +9,6 @@
  other person.  No title to or ownership of the software is
  hereby transferred.
 "
-
-
-
 "{ Package: 'stx:libwidg2' }"
 
 TreeItem subclass:#FileSelectionItem
@@ -122,7 +119,7 @@
     path := aPathname asString.
 
     (path size > 1 and:[path endsWith:(Filename separator)]) ifTrue:[
-        ^ (path copyWithoutLast:1) asFilename.
+        ^ (path copyButLast:1) asFilename.
     ].
   ^ aPathname asFilename
 
@@ -739,7 +736,8 @@
 !FileSelectionItem class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/FileSelectionItem.st,v 1.21 2006-03-06 08:46:03 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/FileSelectionItem.st,v 1.22 2013-04-25 13:12:17 stefan Exp $'
 ! !
 
+
 FileSelectionItem initialize!