--- a/ArrayedCollection.st	Fri Jun 28 08:48:43 2019 +0200
+++ b/ArrayedCollection.st	Fri Jun 28 08:48:46 2019 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1989 by Claus Gittinger
               All Rights Reserved
@@ -366,7 +368,7 @@
      We output a warning message here, to remind you about that."
 
     'ArrayedCollection [info]: slow removeAll operation (' infoPrint.
-    self class name infoPrint. ')' infoPrintCR.
+    self className infoPrint. ')' infoPrintCR.
 
     self become:(self copyEmpty)
 
@@ -375,7 +377,8 @@
      #(1 2 3 4 5) removeAll    
     "
 
-    "Modified: 10.1.1997 / 15:14:55 / cg"
+    "Modified: / 10-01-1997 / 15:14:55 / cg"
+    "Modified: / 28-06-2019 / 08:41:16 / Claus Gittinger"
 !
 
 removeAllSuchThat:aBlock
@@ -407,7 +410,7 @@
     ].
 
     'ArrayedCollection [info]: slow removeAllSuchThat operation (' infoPrint.
-    self class name infoPrint. ')' infoPrintCR.
+    self className infoPrint. ')' infoPrintCR.
 
     keptElements := (self species withAll:keptElements) postCopyFrom:self.
     self become:keptElements.
@@ -422,6 +425,7 @@
     "
 
     "Created: / 13-04-2018 / 14:02:24 / stefan"
+    "Modified: / 28-06-2019 / 08:41:21 / Claus Gittinger"
 ! !
 
 !ArrayedCollection methodsFor:'copying'!
@@ -474,7 +478,7 @@
             "/ (i.e. use OrderedCollection instead of Array ..)
             "/
             'ArrayedCollection [warning]: slow grow operation (' errorPrint.
-            self class name infoPrint. ') ' errorPrintCR.
+            self className infoPrint. ') ' errorPrintCR.
             Context showWhereWeCameFrom.
         ].
 
@@ -492,7 +496,8 @@
      'hello' copy grow:20   
     "
 
-    "Modified: 10.1.1997 / 15:14:43 / cg"
+    "Modified: / 10-01-1997 / 15:14:43 / cg"
+    "Modified: / 28-06-2019 / 08:41:11 / Claus Gittinger"
 ! !
 
 
@@ -511,7 +516,7 @@
         ^ self
     ].
 
-    aStream nextPutAll:'(('; nextPutAll:self class name; nextPutAll:' new:'.
+    aStream nextPutAll:'(('; nextPutAll:self className; nextPutAll:' new:'.
     self size printOn:aStream.
     aStream nextPut:$).
     index := 1.
@@ -530,6 +535,7 @@
 
     "Modified: / 28-01-1997 / 00:39:59 / cg"
     "Modified: / 17-02-2017 / 10:51:53 / stefan"
+    "Modified: / 28-06-2019 / 08:41:27 / Claus Gittinger"
 ! !
 
 !ArrayedCollection methodsFor:'queries'!