--- a/WeakArray.st	Tue Jun 28 00:33:31 2016 +0200
+++ b/WeakArray.st	Tue Jun 28 11:04:31 2016 +0200
@@ -666,7 +666,7 @@
 
 forAllDeadIndicesDo:aBlock replacingCorpsesWith:newValue
     "evaluate the argument, aBlock for all indices where elements have been
-     replaced by zero (due to a collected object), and replace the element
+     replaced by a SmallInteger (due to a collected object), and replace the element
      with newValue.
      In the current implementation, the block sees the newValue (i.e. it is
      changed before the block is called); this behavior is not guaranteed
@@ -675,10 +675,10 @@
      slots may change iff the garbage collector finds new garbage."
 
     self keysAndValuesDo:[:index :element |
-	element class == SmallInteger ifTrue:[
-	    self at:index put:newValue.
-	    aBlock value:index.
-	]
+        element class == SmallInteger ifTrue:[
+            self at:index put:newValue.
+            aBlock value:index.
+        ]
     ]
 
     "Modified: 25.1.1997 / 14:51:28 / cg"