--- a/BitArray.st	Tue Mar 26 11:36:30 2019 +0100
+++ b/BitArray.st	Tue Mar 26 11:54:05 2019 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1997 by eXept Software AG / Claus Gittinger
               All Rights Reserved
@@ -306,6 +308,7 @@
 
 atAllPut:aNumber
     "replace all elements of the collection by the argument, aNumber.
+     Return the receiver.
      The argument, aBoolean must be 0 or 1.
      Notice: This operation modifies the receiver, NOT a copy;
      therefore the change may affect all others referencing the receiver."
@@ -346,6 +349,8 @@
      ((self new:10) atAllPut:1) countOnes  
      ((self new:8) atAllPut:1) countOnes   
     "
+
+    "Modified (comment): / 26-03-2019 / 11:52:55 / Claus Gittinger"
 ! !
 
 !BitArray methodsFor:'logical operations'!
@@ -499,6 +504,7 @@
     ^ tally
 ! !
 
+
 !BitArray methodsFor:'visiting'!
 
 acceptVisitor:aVisitor with:aParameter