Christoph Thiede uploaded a new version of Installer-Core to project The Trunk:
http://source.squeak.org/trunk/Installer-Core-ct.451.mcz

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

Name: Installer-Core-ct.451
Author: ct
Time: 8 September 2022, 9:38:49.346128 pm
UUID: 05f0cf03-9bef-9248-881a-a80b6c3a7b64
Ancestors: Installer-Core-eem.450

Accelerates #ensureRecentMetacello by one or two seconds by sharing the Metacello instance for #get and #load. See https://github.com/Metacello/metacello/pull/552#issuecomment-1152634032 for an argument.

=============== Diff against Installer-Core-eem.450 ===============

Item was changed:
  ----- Method: Installer class>>ensureRecentMetacello (in category 'scripts') -----
  ensureRecentMetacello
  	"Copied and adapted from https://github.com/Metacello/metacello/blob/master/README.md"
  	
  	| metacello |
  	((Smalltalk classNamed: #WebClient)
  		ifNil: [ false ]
  		ifNotNil: [ :webClient | 
  			[ (webClient httpHead: 'https://github.com') isSuccess ] 
  				on: Error
  				do: [ false ] ])
  		ifFalse: [ ^self inform: 'Could not connect to "https://github.com".\\You need an internet connection and SSL support\to install (or update) Metacello.\\Please fix those issues and try again.' translated withCRs ].
  	
  	self isMetacelloInstalled ifFalse: [
  		| response |
  		"Download base archive of Metacello."
  		response := WebClient httpGet: 'https://files.squeak.org/metacello/metacello-squeak60.sar'.
  		response isSuccess ifFalse: [
  			self error: ('Could not download Metacello archive: {1}' translated format: {response status})].
  		"Prepare a clean environment and install it."
  		Smalltalk globals removeKey: #Metacello ifAbsent: ["Ignore prior attempts."].
  		SARInstaller new fileInFrom: response content asByteArray readStream].
  
  	metacello := Smalltalk classNamed: #Metacello.
  
  	"Now load latest version of Metacello"
  	metacello new
  		baseline: 'Metacello';
  		repository: 'github://Metacello/metacello:master/repository';
+ 		get;
- 		get.
- 	metacello new
- 		baseline: 'Metacello';
- 		repository: 'github://Metacello/metacello:master/repository';
  		load: #('default' 'Metacello-Help').!