Marcel Taeumel uploaded a new version of System to project The Trunk:
http://source.squeak.org/trunk/System-mt.1179.mcz

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

Name: System-mt.1179
Author: mt
Time: 14 October 2020, 2:07:40.555569 pm
UUID: 8a7e511d-87d7-6042-8478-87417dd33e12
Ancestors: System-mt.1178

Rename #doWithIndex: to #withIndexDo:. See http://forum.world.st/The-Inbox-60Deprecated-ct-80-mcz-td5120706.html

=============== Diff against System-mt.1178 ===============

Item was changed:
  ----- Method: NativeImageSegment class>>swapOutProjects (in category 'testing') -----
  swapOutProjects  "NativeImageSegment swapOutProjects"  
  	"Swap out segments for all projects other than the current one."
  
  	| spaceLeft |
  	spaceLeft := Smalltalk garbageCollect.
+ 	Project allProjects withIndexDo:
- 	Project allProjects doWithIndex:
  		[:p :i | | newSpaceLeft | p couldBeSwappedOut ifTrue:
  			[Transcript cr; cr; nextPutAll: p name.
  			(NativeImageSegment new copyFromRoots: (Array with: p) sizeHint: 0)
  				extract; writeToFile: 'project' , i printString.
  			newSpaceLeft := Smalltalk garbageCollect.
  			Transcript cr; print: newSpaceLeft - spaceLeft; endEntry.
  			spaceLeft := newSpaceLeft]].!

Item was changed:
  ----- Method: SmartRefStream>>storeInstVarsIn:from: (in category 'class changed shape') -----
  storeInstVarsIn: anObject from: dict
  	"For instance variables with the same names, store them in the new instance.  Values in variable-length part also.  This is NOT the normal inst var transfer!!  See Object.readDataFrom:size:.  This is for when inst var names have changed and some additional conversion is needed.  Here we handle the unchanged vars.  "
  
+ 	(anObject class allInstVarNames) withIndexDo: [:varName :index |
- 	(anObject class allInstVarNames) doWithIndex: [:varName :index |
  		(dict includesKey: varName) ifTrue: [
  			anObject instVarAt: index put: (dict at: varName)]].
  	"variable part"
  	(dict includesKey: #SizeOfVariablePart) ifFalse: [^ anObject].
  	1 to: (dict at: #SizeOfVariablePart) do: [:index | 
  		anObject basicAt: index put: (dict at: index)].
  	^ anObject!