--- a/ObjectMemory.st	Thu Jul 05 03:33:35 2018 +0000
+++ b/ObjectMemory.st	Fri Jul 06 11:18:14 2018 +0200
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 1992 by Claus Gittinger
 	      All Rights Reserved
@@ -1666,7 +1664,7 @@
                             at:i
                             put:(self refNameFor:(chain at:i+1) in:(chain at:i))
                     ].
-                    list at:list size put:(chain last classNameWithArticle).
+                    list at:list size put:(chain last class nameWithArticle).
 
                     "/ hide the VMProcesses stuff from the user ...
                     (list at:1) string = 'Smalltalk:__VMProcesses__' ifTrue:[