--- a/Workspace.st	Thu Apr 25 15:11:43 2013 +0200
+++ b/Workspace.st	Thu Apr 25 15:12:24 2013 +0200
@@ -1227,7 +1227,7 @@
                 ((l startsWith:opening)
                 and:[l endsWith:closing]) ifTrue:[
                     l := l copyFrom:opening size + 1.
-                    l := l copyWithoutLast:closing size.
+                    l := l copyButLast:closing size.
                 ]
             ].
             self replaceLine:lineNr with:l.
@@ -2047,10 +2047,10 @@
 !Workspace class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.258 2013-03-28 11:53:47 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.259 2013-04-25 13:12:24 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.258 2013-03-28 11:53:47 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.259 2013-04-25 13:12:24 stefan Exp $'
 ! !