--- a/FileSelectionTree.st	Wed Apr 24 15:18:12 2013 +0200
+++ b/FileSelectionTree.st	Thu Apr 25 15:11:00 2013 +0200
@@ -637,7 +637,7 @@
     (p2 first endsWith:$\) ifTrue:[
         (p2 first endsWith:':\') ifFalse:[
             p2 := p2 copy.
-            p2 at:1 put:(p2 first copyWithoutLast:1).
+            p2 at:1 put:(p2 first copyButLast:1).
         ]
     ].
 
@@ -753,5 +753,6 @@
 !FileSelectionTree class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/FileSelectionTree.st,v 1.33 2008-12-16 15:49:26 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/FileSelectionTree.st,v 1.34 2013-04-25 13:11:00 stefan Exp $'
 ! !
+