Marcel Taeumel uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-mt.1241.mcz
==================== Summary ====================
Name: System-mt.1241 Author: mt Time: 25 August 2021, 2:20:46.973495 pm UUID: 969fdd6d-dc9e-2b42-aa0b-fb1c8e40d63a Ancestors: System-mt.1240
Fixes issue in space tally for SharedPool pools.
=============== Diff against System-mt.1240 ===============
Item was changed: ----- Method: SpaceTally>>spaceForPoolsOf:depth:seen: (in category 'class analysis') ----- spaceForPoolsOf: aClass depth: anInteger seen: seenObjects
| pools objects total | pools := {aClass classPool}, aClass sharedPools. + objects := Array streamContents: [:stream | + pools do: [:pool | pool bindingsDo: [:binding | stream nextPut: binding value]]]. - objects := pools gather: [:pool | pool values]. objects isEmpty ifTrue: [^#(0 0)]. total := 0. objects do: [:each | total := total + (self spaceForInstance: each depth: anInteger seen: seenObjects)]. ^{ total. objects size }!
packages@lists.squeakfoundation.org