--- a/ChangesBrowser.st	Thu Apr 25 15:10:14 2013 +0200
+++ b/ChangesBrowser.st	Thu Apr 25 15:10:15 2013 +0200
@@ -3731,7 +3731,7 @@
     name := self realClassNameOfChange:changeNr.
     name isNil ifTrue:[^ nil].
     (name endsWith:' class') ifTrue:[
-	name := name copyWithoutLast:6
+        name := name copyButLast:6
     ].
     ^ name
 
@@ -4497,7 +4497,7 @@
                                         (className includes:$:) ifTrue:[
                                             ownerName := className copyTo:(className lastIndexOf:$:) - 1.
                                             (ownerName endsWith:$:) ifTrue:[
-                                                ownerName := ownerName copyWithoutLast:1.
+                                                ownerName := ownerName copyButLast:1.
                                             ].
 
                                             ownerClass := Smalltalk at:(ownerName asSymbol) ifAbsent:[].
@@ -5766,7 +5766,7 @@
 
     isMeta := false.
     (className endsWith:' class') ifTrue:[
-        className := className copyWithoutLast:6.
+        className := className copyButLast:6.
         isMeta := true.
     ].
 
@@ -6536,10 +6536,10 @@
 !ChangesBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.438 2013-04-11 09:33:26 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.439 2013-04-25 13:10:15 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.438 2013-04-11 09:33:26 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.439 2013-04-25 13:10:15 stefan Exp $'
 ! !