--- a/ClassChange.st	Thu Apr 25 15:10:22 2013 +0200
+++ b/ClassChange.st	Thu Apr 25 15:10:54 2013 +0200
@@ -97,7 +97,7 @@
         ]
     ].
     (meta := (className endsWith:' class')) ifTrue:[    
-        className := className copyWithoutLast:6.
+        className := className copyButLast:6.
     ].
 
     ns := (ns ? Smalltalk).
@@ -438,10 +438,10 @@
 !ClassChange class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/ClassChange.st,v 1.72 2013-04-16 14:00:38 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/ClassChange.st,v 1.73 2013-04-25 13:10:54 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic3/ClassChange.st,v 1.72 2013-04-16 14:00:38 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/ClassChange.st,v 1.73 2013-04-25 13:10:54 stefan Exp $'
 ! !