--- a/WeakIdSet.st	Thu Feb 01 22:56:28 1996 +0100
+++ b/WeakIdSet.st	Fri Feb 02 11:17:29 1996 +0100
@@ -99,7 +99,7 @@
 informDispose
     "an element died - must rehash"
 
-    |wasBlocked|
+    |wasBlocked cnt|
 
     "
      must block interrupts here - finalization
@@ -108,6 +108,14 @@
      while rehashing
     "
     wasBlocked := OperatingSystem blockInterrupts.
+
+    "/
+    "/ recompute my tally
+    "/
+    cnt := 0.
+    keyArray nonNilElementsDo:[:el | cnt := cnt + 1].
+    tally := cnt.
+
     self rehash.
     wasBlocked ifFalse:[OperatingSystem unblockInterrupts].
 ! !
@@ -150,5 +158,5 @@
 !WeakIdentitySet class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Attic/WeakIdSet.st,v 1.12 1995-11-23 17:38:00 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Attic/WeakIdSet.st,v 1.13 1996-02-02 10:17:29 cg Exp $'
 ! !