--- a/MessageTracer.st	Wed Dec 18 00:22:49 2019 +0100
+++ b/MessageTracer.st	Wed Dec 18 17:29:12 2019 +0100
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 1994 by Claus Gittinger
 	      All Rights Reserved
@@ -3932,7 +3930,7 @@
     |s|
 
     anObject isProtoObject ifTrue:[
-        s := anObject classNameWithArticle
+        s := anObject class nameWithArticle
     ] ifFalse:[
         s := anObject printString.
         s size > 40 ifTrue:[