--- a/ResourcePack.st	Thu Apr 25 15:10:24 2013 +0200
+++ b/ResourcePack.st	Thu Apr 25 15:12:19 2013 +0200
@@ -475,7 +475,7 @@
     (rest startsWith:'''') ifTrue:[
         rest := rest copyFrom:2.
         (rest endsWith:'''') ifTrue:[
-            rest := rest copyWithoutLast:1.
+            rest := rest copyButLast:1.
         ].
     ].
     encoding := rest asSymbol.
@@ -796,13 +796,13 @@
 
         last = $. ifTrue:[
             (aKey endsWith:' ...') ifTrue:[
-                usedKey := aKey copyWithoutLast:4.
+                usedKey := aKey copyButLast:4.
 
                 val := self localAt:usedKey.        "/ recursion
                 val notNil ifTrue:[^ val , ' ...'].
             ].
             (aKey endsWith:'...') ifTrue:[
-                usedKey := aKey copyWithoutLast:3.
+                usedKey := aKey copyButLast:3.
 
                 val := self localAt:usedKey.        "/ recursion
                 val notNil ifTrue:[^ val , '...'].
@@ -824,7 +824,7 @@
 
         (':=.?!!,-><\' includes:last) ifTrue:[
             aKey size >= 2 ifTrue:[
-                usedKey := aKey copyWithoutLast:1.
+                usedKey := aKey copyButLast:1.
 
                 val := self localAt:usedKey.        "/ recursion
                 val notNil ifTrue:[^ val copyWith:last].
@@ -1283,7 +1283,7 @@
     [inStream atEnd] whileFalse:[
         lineString := inStream nextLine. lineNumber := lineNumber + 1.
         [lineString notNil and:[lineString endsWith:$\]] whileTrue:[
-            lineString := lineString copyWithoutLast:1.
+            lineString := lineString copyButLast:1.
             l := inStream nextLine. lineNumber := lineNumber + 1.
             l notNil ifTrue:[
                 lineString := lineString , l.
@@ -1421,11 +1421,12 @@
 !ResourcePack class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/ResourcePack.st,v 1.151 2012-11-04 21:17:21 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/ResourcePack.st,v 1.152 2013-04-25 13:12:19 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview/ResourcePack.st,v 1.151 2012-11-04 21:17:21 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/ResourcePack.st,v 1.152 2013-04-25 13:12:19 stefan Exp $'
 ! !
 
+
 ResourcePack initialize!