--- a/FileBrowser.st	Thu Apr 25 15:10:15 2013 +0200
+++ b/FileBrowser.st	Thu Apr 25 15:10:26 2013 +0200
@@ -4386,7 +4386,7 @@
                               collect:[:l | |ll|
                                         ll := l string withoutSeparators.
                                         (ll endsWith:' ...') ifTrue:[
-                                            ll copyWithoutLast:4
+                                            ll copyButLast:4
                                         ] ifFalse:[
                                             ll
                                         ]
@@ -5314,7 +5314,7 @@
             nm notNil ifTrue:[
                 nm := nm string.
                 (nm endsWith:' ...') ifTrue:[
-                    nm := (nm copyWithoutLast:4) withoutSpaces
+                    nm := (nm copyButLast:4) withoutSpaces
                 ].
             ].
             nm
@@ -7246,7 +7246,7 @@
                                 fileNameString := aFileName.
                                 dirSuffix notNil ifTrue:[
                                     (aFileName asLowercase endsWith:dirSuffix) ifTrue:[
-                                        fileNameString := aFileName copyWithoutLast:(dirSuffix size).
+                                        fileNameString := aFileName copyButLast:(dirSuffix size).
                                     ]
                                 ].
                                 fileNameString := fileNameString , ' ...'
@@ -7255,7 +7255,7 @@
                                 OperatingSystem isVMSlike ifTrue:[
                                     (aFileName endsWith:'.') ifTrue:[
                                         aFileName ~= '..' ifTrue:[
-                                            fileNameString := aFileName copyWithoutLast:1
+                                            fileNameString := aFileName copyButLast:1
                                         ]
                                     ]
                                 ]
@@ -7505,10 +7505,10 @@
 !FileBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.645 2013-04-19 09:36:55 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.646 2013-04-25 13:10:26 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.645 2013-04-19 09:36:55 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.646 2013-04-25 13:10:26 stefan Exp $'
 ! !