Nicolas Cellier uploaded a new version of EToys to project The Trunk:
http://source.squeak.org/trunk/EToys-nice.41.mcz

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

Name: EToys-nice.41
Author: nice
Time: 24 December 2009, 3:05:54 am
UUID: cc186e17-ba38-48f0-90ee-cf7302307e23
Ancestors: EToys-ul.40

Use scaledIdentityHash for hashing

=============== Diff against EToys-ul.40 ===============

Item was changed:
  ----- Method: Player>>recaptureUniqueCostumes (in category 'costume') -----
  recaptureUniqueCostumes
  	"Recapture all unique sketch-like costumes. Debugging only."
  	| unique |
  	costumes ifNil:[^self].
  	unique := PluggableSet new 
  				equalBlock:[:s1 :s2| s1 form == s2 form];
+ 				hashBlock:[:s| s form scaledIdentityHash].
- 				hashBlock:[:s| s form identityHash].
  	unique addAll: (costumes select:[:c| c isSketchMorph]).
  	unique := unique asIdentitySet.
  	costumes := costumes select:[:c|
  		(c isSketchMorph) not or:[unique includes: c]].
  !