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 }!