Karl Ramberg uploaded a new version of System to project The Trunk:
http://source.squeak.org/trunk/System-kfr.1022.mcz

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

Name: System-kfr.1022
Author: kfr
Time: 3 May 2018, 8:03:36.590229 pm
UUID: 53fd1f63-34eb-f24e-ac23-99850d5b6f09
Ancestors: System-eem.1021

Class needed for bringing in old projects.

=============== Diff against System-eem.1021 ===============

Item was added:
+ ClassCategoryReader subclass: #RenamedClassSourceReader
+ 	instanceVariableNames: ''
+ 	classVariableNames: ''
+ 	poolDictionaries: ''
+ 	category: 'System-Object Storage'!

Item was added:
+ ----- Method: RenamedClassSourceReader class>>formerClassName:methodsFor:stamp: (in category 'as yet unclassified') -----
+ formerClassName: formerClassName methodsFor: aCategory stamp: aString
+ 
+ 	^self new
+ 		setClass: formerClassName 
+ 		category: aCategory 
+ 		changeStamp: aString!

Item was added:
+ ----- Method: RenamedClassSourceReader class>>scanner (in category 'as yet unclassified') -----
+ scanner
+ 
+ 	^self new!

Item was added:
+ ----- Method: RenamedClassSourceReader>>scanFrom: (in category 'as yet unclassified') -----
+ scanFrom: aStream
+ 
+ 	self flag: #bob. 	"should this ever happen?"
+ 	self halt.!

Item was added:
+ ----- Method: RenamedClassSourceReader>>scanFromNoCompile: (in category 'as yet unclassified') -----
+ scanFromNoCompile: aStream
+ 
+ 	self flag: #bob. 	"should this ever happen?"
+ 	self halt.!

Item was added:
+ ----- Method: RenamedClassSourceReader>>scanFromNoCompile:forSegment: (in category 'as yet unclassified') -----
+ scanFromNoCompile: aStream forSegment: anImageSegment
+ 	"Just move the source code for the methods from aStream."
+ 	| methodText d |
+ 
+ 	[
+ 		(methodText _ aStream nextChunkText) size > 0
+ 	] whileTrue: [
+ 		(SourceFiles at: 2) ifNotNil: [
+ 			d _ Dictionary new.
+ 			d
+ 				at: #oldClassName put: class;		"may be 'Player1' or 'Player1 class'"
+ 				at: #methodText put: methodText;
+ 				at: #changeStamp put: changeStamp;
+ 				at: #category put: category.
+ 			anImageSegment acceptSingleMethodSource: d.
+ 		]
+ 	]!