Marcel Taeumel uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-mt.1424.mcz
==================== Summary ====================
Name: System-mt.1424 Author: mt Time: 27 September 2023, 1:39:22.934019 pm UUID: d830c5c0-4931-a546-b8ee-fd493ca7b1d3 Ancestors: System-mt.1423
Complement Kernel-mt.1526
=============== Diff against System-mt.1423 ===============
Item was changed: ----- Method: SmartRefStream>>next (in category 'read write') ----- next "Really write three objects: (version, class structure, object). But only when called from the outside. "
| version ss object | ^ topCall == nil ifTrue: [topCall := #marked. version := super next. version class == SmallInteger ifFalse: [^ version]. "version number, else just a regular object, not in our format, " self checkCrLf. ss := super next. ss class == Array ifFalse: [^ ss]. "just a regular object" (ss at: 1) = 'class structure' ifFalse: [^ ss]. structures := (ss at: 2) rehash. superclasses := (ss size > 3 and: [(ss at: 3) = 'superclasses']) ifTrue: [(ss at: 4) rehash] "class name -> superclass name" ifFalse: [Dictionary new]. (self verifyStructure = 'conversion method needed') ifTrue: [^ nil]. + object := super next. "all the action here" - object := super next rehash. "all the action here" self restoreClassInstVars. "for UniClasses. version 4"
topCall := nil. "reset it" object] ifFalse: + [super next] - [super next rehash] !