--- a/MessageTracer.st	Sun Sep 08 15:49:35 2019 +0200
+++ b/MessageTracer.st	Sun Sep 08 15:58:59 2019 +0200
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 1994 by Claus Gittinger
 	      All Rights Reserved
@@ -1292,7 +1290,7 @@
      get a new method-spec
     "
     xselector := '_x'.
-    method numArgs timesRepeat:[
+    method argumentCount timesRepeat:[
         xselector := xselector , '_:'
     ].
     spec := Parser methodSpecificationForSelector:xselector.
@@ -1493,7 +1491,7 @@
      get a new method-spec
     "
     xselector := '_x'.
-    aMethod numArgs timesRepeat:[
+    aMethod argumentCount timesRepeat:[
         xselector := xselector , '_:'
     ].
     spec := Parser methodSpecificationForSelector:xselector.
@@ -2334,7 +2332,7 @@
      get a new method-spec
     "
     xselector := '_x'.
-    aMethod numArgs timesRepeat:[
+    aMethod argumentCount timesRepeat:[
         xselector := xselector , '_:'
     ].
     spec := Parser methodSpecificationForSelector:xselector.
@@ -2543,7 +2541,7 @@
      get a new method-spec
     "
     xselector := '_x'.
-    aMethod numArgs timesRepeat:[
+    aMethod argumentCount timesRepeat:[
         xselector := xselector , '_:'
     ].
     spec := Parser methodSpecificationForSelector:xselector.