--- a/DebugView.st	Thu Apr 25 15:11:37 2013 +0200
+++ b/DebugView.st	Thu Apr 25 15:11:48 2013 +0200
@@ -4373,9 +4373,9 @@
     "/ code for a setter
     (selector numArgs == 1
     and:[(selector endsWith:':')
-    and:[receiversClass instVarNames includes:(selector copyWithoutLast:1)]])
+    and:[receiversClass instVarNames includes:(selector copyButLast:1)]])
     ifTrue:[
-        varName := selector copyWithoutLast:1.
+        varName := selector copyButLast:1.
         argName := argNames first.
         code := '%1\' , haltStmtFix , '\    %3 := %4.'.
         cat := 'accessing'.
@@ -8285,11 +8285,11 @@
 !DebugView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.582 2013-04-19 09:38:08 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.583 2013-04-25 13:11:48 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.582 2013-04-19 09:38:08 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.583 2013-04-25 13:11:48 stefan Exp $'
 !
 
 version_SVN