--- a/AbstractFileBrowser.st	Thu Apr 25 15:10:42 2013 +0200
+++ b/AbstractFileBrowser.st	Thu Apr 25 15:10:49 2013 +0200
@@ -6409,12 +6409,12 @@
         path := dir baseName , '/' , path.
         dir := dir directory.
         dir isNil ifTrue:[
-            Dialog warning:'Could not find a path from "stx" to the current directory.'.
+            Dialog warn:'Could not find a path from "stx" to the current directory.'.
             "/ should ask the user for a packageID and proceed...
             ^  self.
         ].
     ].
-    packageID := path copyWithoutLast:1.
+    packageID := path copyButLast:1.
     Smalltalk loadPackage:packageID fromDirectory:packageDir asAutoloaded:true
 !
 
@@ -8912,7 +8912,7 @@
     pathToAdd := aPath.
     (pathToAdd endsWith:(Filename separator)) ifTrue:[
         pathToAdd asFilename isRootDirectory ifFalse:[
-            pathToAdd := pathToAdd copyWithoutLast:(Filename separator asString size).    
+            pathToAdd := pathToAdd copyButLast:(Filename separator asString size).    
         ]    
     ].
 
@@ -9176,10 +9176,10 @@
 !AbstractFileBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.518 2013-04-19 09:36:40 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.519 2013-04-25 13:10:49 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.518 2013-04-19 09:36:40 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.519 2013-04-25 13:10:49 stefan Exp $'
 ! !