--- a/ChangesBrowser.st	Tue Jan 30 21:17:36 2018 +0100
+++ b/ChangesBrowser.st	Tue Jan 30 21:29:57 2018 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1990 by Claus Gittinger
 	      All Rights Reserved
@@ -1532,7 +1534,7 @@
 
     changeFileName := ObjectMemory nameForChanges.
     encodingIfKnown := nil.
-    autoCompare := (DefaultAutoCompare ? false) asValue.
+    autoCompare := (DefaultAutoCompare ? true) asValue.
     autoCompare onChangeSend:#autoCompareChanged to:self.
     autoUpdate := false asValue.
     autoloadAsRequired := false asValue.
@@ -3660,7 +3662,7 @@
     "/ does not care for VW qualified names
     "/ ^ Parser parseExpression:text inNameSpace:nameSpace.
 
-(text includesString:'§') ifTrue:[self halt].
+(text includesString:'§') ifTrue:[self halt].
 
     "/ new:
     parser := Parser for:(ReadStream on:text).
@@ -6701,7 +6703,7 @@
     "
     clsName := nil.
 
-(chunkText includesString:'§') ifTrue:[self halt].
+(chunkText includesString:'§') ifTrue:[self halt].
 
     p := browser parseExpression:chunkText inNameSpace:(self nameSpaceForApply).
     (p notNil and:[p ~~ #Error and:[p isMessage]]) ifTrue:[