--- a/ChangesBrowser.st	Sun Sep 08 15:38:51 2019 +0200
+++ b/ChangesBrowser.st	Sun Sep 08 15:42:26 2019 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1990 by Claus Gittinger
 	      All Rights Reserved
@@ -3827,7 +3829,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'
     ].
 
@@ -4931,7 +4933,7 @@
         ^ false
     ].
 
-    outStream fileSize = 0 ifTrue:[
+    outStream fileSize == 0 ifTrue:[
         encoding := #utf8.
         outStream nextPutLine:'"{ Encoding: utf8 }" !!'.
     ] ifFalse:[
@@ -6118,7 +6120,7 @@
                          and:[self checkClassIsLoaded:thisClass]]) ifFalse:[
                         oldSource := c'Cannot compare this change\n\n(compare requires class to be loaded).'.
                     ] ifTrue:[
-                        selector numArgs == 0 ifTrue:[
+                        selector argumentCount == 0 ifTrue:[
                             cat := '* as yet uncategorized *'.
                             cat := selector.
                         ] ifFalse:[
@@ -7045,7 +7047,7 @@
     "
     clsName := nil.
 
-    (chunkText includesString:'§') ifTrue:[
+    (chunkText includesString:'§') ifTrue:[
         self halt:'should no longer happen'
     ].
 
@@ -7069,7 +7071,7 @@
                     changeType := self colorizeAsCommentChange:'(category change)'.
                     methodSelector := (p args at:1) evaluate.
                 ] ifFalse:[
-                    (sel numArgs == 0) ifTrue:[
+                    (sel argumentCount == 0) ifTrue:[
                         category := '* As yet uncategorized *'.
                         category := sel.
                     ] ifFalse:[