--- a/Set.st	Wed Feb 04 21:08:53 2015 +0100
+++ b/Set.st	Wed Feb 04 22:08:10 2015 +0100
@@ -377,6 +377,7 @@
      Returns the receiver."
 
     keyArray atAllPut:nil.
+    tally := 0.
 !
 
 remove:oldObjectArg ifAbsent:exceptionBlock
@@ -1333,11 +1334,11 @@
 !Set class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Set.st,v 1.130 2015-02-04 19:58:53 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Set.st,v 1.131 2015-02-04 21:08:10 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Set.st,v 1.130 2015-02-04 19:58:53 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Set.st,v 1.131 2015-02-04 21:08:10 stefan Exp $'
 ! !