--- a/ApplicationDefinition.st	Thu Apr 25 15:11:18 2013 +0200
+++ b/ApplicationDefinition.st	Thu Apr 25 15:11:29 2013 +0200
@@ -575,7 +575,7 @@
     path := m subStrings:$/.
     path last = 'application' ifTrue:[
         path size > 1 ifTrue:[
-            path := path copyWithoutLast:1.
+            path := path copyButLast:1.
         ].
     ].
     ^ path last
@@ -2933,11 +2933,11 @@
 !ApplicationDefinition class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ApplicationDefinition.st,v 1.233 2013-04-04 14:16:21 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ApplicationDefinition.st,v 1.234 2013-04-25 13:11:29 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/ApplicationDefinition.st,v 1.233 2013-04-04 14:16:21 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ApplicationDefinition.st,v 1.234 2013-04-25 13:11:29 stefan Exp $'
 !
 
 version_SVN