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

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

Name: System-mt.1015
Author: mt
Time: 8 April 2018, 12:01:31.43839 pm
UUID: 42c64965-b457-4c45-962c-85944be8e436
Ancestors: System-mt.1014

Etoys tests could have messed with your SoundService app registry. This commit and script cleans that up.

=============== Diff against System-mt.1014 ===============

Item was changed:
  ----- Method: SoundService class>>default (in category 'accessing') -----
  default
+ 	"This app registry returns instances instead of classes."
+ 	
- 
  	| cls |
  	cls := super default.
  	^ cls new!

Item was added:
+ ----- Method: SoundService class>>default: (in category 'accessing') -----
+ default: aClassOrNil
+ 	"See #default. This app registry returns instances instead of classes. Yet, make sure to only store classes so that always fresh instances will be returned."
+ 	
+ 	^ super default: (aClassOrNil ifNotNil: [:obj |
+ 		obj isBehavior
+ 			ifTrue: [obj]
+ 			ifFalse: [obj class]])!

Item was changed:
+ (PackageInfo named: 'System') postscript: '"Ensure that only classes are stored in the SoundService app registry."
+ SoundService default: SoundService defaultOrNil.'!
- (PackageInfo named: 'System') postscript: '(Smalltalk specialSelectorNames includes: #~~) ifFalse:
- 	["Re-create the specialObjectsArray to let the jit optimize #~~. Also add the new primitive error codes if they are not there yet."
- 	| senders |
- 	senders := #(#~~ #blockCopy:) gather: [ :selector |
- 		"Recompile senders blockCopy: too, just in case."
- 		SystemNavigation default allCallsOn: selector ].
- 	Smalltalk recreateSpecialObjectsArray.
- 	VariableNode initialize.
- 	Decompiler initialize.
- 	senders
- 		 do: [ :methodReference |
- 			| class |
- 			class := methodReference actualClass.
- 			class recompile: methodReference selector from: class ]
- 		displayingProgress: ''Recompiling...''].
- "If PrimitiveError is not in the primitiveErrorTable, or if an instance
-  of a different class is there, then add it."
- (Smalltalk primitiveErrorTable size < 21
- or: [(Smalltalk primitiveErrorTable at: 21) class ~~ PrimitiveError]) ifTrue:
- 	[Smalltalk recreateSpecialObjectsArray]'!