Levente Uzonyi uploaded a new version of Collections to project The Trunk:
http://source.squeak.org/trunk/Collections-ul.677.mcz

==================== Summary ====================

Name: Collections-ul.677
Author: ul
Time: 9 January 2016, 2:32:25.271894 pm
UUID: 3973645f-83f8-4013-806f-a9c56673dec0
Ancestors: Collections-eem.676

Let #arrayType define the class of array in WeakSet.

=============== Diff against Collections-eem.676 ===============

Item was added:
+ ----- Method: WeakSet class>>arrayType (in category 'as yet unclassified') -----
+ arrayType
+ 
+ 	^WeakArray!

Item was changed:
  ----- Method: WeakSet>>growTo: (in category 'private') -----
  growTo: anInteger
  	"Grow the elements array and reinsert the old elements"
  
  	| oldElements |
  	oldElements := array.
+ 	array := self class arrayType new: anInteger withAll: flag.
- 	array := WeakArray new: anInteger withAll: flag.
  	self noCheckNoGrowFillFrom: oldElements!

Item was changed:
  ----- Method: WeakSet>>initialize: (in category 'private') -----
  initialize: n
  	"Initialize array to an array size of n"
  
+ 	super initialize: n.
  	flag := Object new.
+ 	array atAllPut: flag!
- 	array := WeakArray new: n.
- 	array atAllPut: flag.
- 	tally := 0!