--- a/NewChangesBrowser.st	Thu Dec 05 04:27:49 2013 +0000
+++ b/NewChangesBrowser.st	Thu Dec 05 20:16:06 2013 +0100
@@ -2142,9 +2142,11 @@
     name := self fullClassNameOfChange:aChange.
     name isNil ifTrue:[^ nil].
     (name endsWith:' class') ifTrue:[
-	^ name copyWithoutLast:6
+        ^ name copyButLast:6
     ].
     ^ name
+
+    "Modified: / 05-12-2013 / 19:15:46 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 compareChange:aChange
@@ -3881,9 +3883,10 @@
 !NewChangesBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/NewChangesBrowser.st,v 1.35 2011-08-18 07:51:53 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/NewChangesBrowser.st,v 1.36 2013-12-05 19:16:06 vrany Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/NewChangesBrowser.st,v 1.35 2011-08-18 07:51:53 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/NewChangesBrowser.st,v 1.36 2013-12-05 19:16:06 vrany Exp $'
 ! !
+