--- a/ChangesBrowser.st	Sun May 20 10:12:23 2018 +0200
+++ b/ChangesBrowser.st	Sun May 20 10:52:51 2018 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1990 by Claus Gittinger
 	      All Rights Reserved
@@ -1069,6 +1071,14 @@
     "Created: / 23-09-2011 / 19:42:46 / cg"
 !
 
+leftCodeLabel:aString
+    "change the string shown above the left codeView (defaults to: 'Current')"
+    
+    self leftCodeLabelHolder value:aString
+
+    "Created: / 07-12-2017 / 12:28:37 / cg"
+!
+
 leftCodeLabelHolder
     "holds the string shown above the left codeView (defaults to: 'Current')"
 
@@ -1093,6 +1103,14 @@
     readOnly := aBoolean
 !
 
+rightCodeLabel:aString
+    "change the string shown above the right codeView (defaults to: 'Change')"
+    
+    self rightCodeLabelHolder value:aString
+
+    "Created: / 07-12-2017 / 12:28:37 / cg"
+!
+
 rightCodeLabelHolder
     "holds the string shown above the right codeView (defaults to: 'Change')"
     
@@ -3746,7 +3764,7 @@
     "/ does not care for VW qualified names
     "/ ^ Parser parseExpression:text inNameSpace:nameSpace.
 
-    (text includesString:'§') ifTrue:[
+    (text includesString:'§') ifTrue:[
         self halt:'should no longer happen'
     ].
 
@@ -6867,7 +6885,7 @@
     "
     clsName := nil.
 
-    (chunkText includesString:'§') ifTrue:[
+    (chunkText includesString:'§') ifTrue:[
         self halt:'should no longer happen'
     ].