--- a/FileSelectionList.st	Sun Apr 14 21:35:53 2013 +0200
+++ b/FileSelectionList.st	Thu Apr 25 15:09:33 2013 +0200
@@ -861,7 +861,7 @@
 
     entry := newDirectory.
     (entry endsWith:' ...') ifTrue:[
-        entry := entry copyWithoutLast:4.
+        entry := entry copyButLast:4.
     ].
 
     ok := false.
@@ -937,7 +937,7 @@
     (entry isEmptyOrNil) ifTrue:[ ^ false].
 
     (entry endsWith:' ...') ifTrue:[
-        entry := entry copyWithoutLast:4.
+        entry := entry copyButLast:4.
     ].
     ^ (directory construct:entry) isDirectory
 
@@ -1091,5 +1091,6 @@
 !FileSelectionList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/FileSelectionList.st,v 1.57 2012-01-23 17:25:28 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/FileSelectionList.st,v 1.58 2013-04-25 13:09:33 stefan Exp $'
 ! !
+