--- a/NewChangesBrowser.st	Wed Feb 05 19:59:20 2014 +0100
+++ b/NewChangesBrowser.st	Wed Feb 05 19:59:22 2014 +0100
@@ -1,3 +1,14 @@
+"
+ COPYRIGHT (c) 2006 by eXept Software AG
+              All Rights Reserved
+
+ This software is furnished under a license and may be used
+ only in accordance with the terms of that license and with the
+ inclusion of the above copyright notice.   This software may not
+ be provided or otherwise made available to, or used by, any
+ other person.  No title to or ownership of the software is
+ hereby transferred.
+"
 "{ Package: 'stx:libtool' }"
 
 ToolApplicationModel subclass:#NewChangesBrowser
@@ -20,6 +31,20 @@
 
 !NewChangesBrowser class methodsFor:'documentation'!
 
+copyright
+"
+ COPYRIGHT (c) 2006 by eXept Software AG
+              All Rights Reserved
+
+ This software is furnished under a license and may be used
+ only in accordance with the terms of that license and with the
+ inclusion of the above copyright notice.   This software may not
+ be provided or otherwise made available to, or used by, any
+ other person.  No title to or ownership of the software is
+ hereby transferred.
+"
+!
+
 documentation
 "
     The future Changes Browser.
@@ -2145,8 +2170,6 @@
         ^ name copyButLast:6
     ].
     ^ name
-
-    "Modified: / 05-12-2013 / 19:15:46 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 compareChange:aChange
@@ -2828,15 +2851,15 @@
                             ].
                             (chunkText endsWith:'primitiveDefinitions:''') ifTrue:[
                                 sel := 'primitiveDefinitions:'.
-                                chunkText := chunkText copyWithoutLast:1
+                                chunkText := chunkText copyButLast:1
                             ].
                             (chunkText endsWith:'primitiveVariables:''') ifTrue:[
                                 sel := 'primitiveVariables:'.
-                                chunkText := chunkText copyWithoutLast:1
+                                chunkText := chunkText copyButLast:1
                             ].
                             (chunkText endsWith:'primitiveFunctions:''') ifTrue:[
                                 sel := 'primitiveFunctions:'.
-                                chunkText := chunkText copyWithoutLast:1
+                                chunkText := chunkText copyButLast:1
                             ].
                         ].
 
@@ -3387,7 +3410,7 @@
     className notNil ifTrue:[
 	isMeta := false.
 	(className endsWith:' class') ifTrue:[
-	    className := className copyWithoutLast:6.
+	    className := className copyButLast:6.
 	    isMeta := true.
 	].
 	(cls := Smalltalk classNamed:className) notNil ifTrue:[
@@ -3883,10 +3906,10 @@
 !NewChangesBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/NewChangesBrowser.st,v 1.36 2013-12-05 19:16:06 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/NewChangesBrowser.st,v 1.37 2014-02-05 18:59:22 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/NewChangesBrowser.st,v 1.36 2013-12-05 19:16:06 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/NewChangesBrowser.st,v 1.37 2014-02-05 18:59:22 cg Exp $'
 ! !