Eliot Miranda uploaded a new version of Installer-Core to project The Trunk:
http://source.squeak.org/trunk/Installer-Core-eem.450.mcz

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

Name: Installer-Core-eem.450
Author: eem
Time: 28 July 2022, 3:56:34.407702 pm
UUID: bfcca845-0aad-41e5-a0d3-33485f0a4bc8
Ancestors: Installer-Core-mt.449

Add https to the schemes understood by InstallerMonticello.  Use https for source.squeak.org and squeaksource.com.  Remove the explicit scheme from senders of http:

=============== Diff against Installer-Core-mt.449 ===============

Item was changed:
  ----- Method: Installer class>>defaultLocalRepository (in category 'repository-overrides') -----
  defaultLocalRepository
  	"Check for a personal, Magma-indexed SqueakSource server first, if none running, the the 'mc' directory in the current directory."
  	| localSqueaksource |
+ 	localSqueaksource := Installer monticello http: 'localhost:8079'.
- 	localSqueaksource := Installer monticello http: 'http://localhost:8079'.
  	^ localSqueaksource mc isIndexed
  		ifTrue: [localSqueaksource]
  		ifFalse: [self localMcDir]!

Item was changed:
  ----- Method: Installer class>>gemsource (in category 'repositories') -----
  gemsource
  
+ 	^ self monticello http: 'seaside.gemtalksystems.com/ss'!
- 	^ self monticello http: 'http://seaside.gemtalksystems.com/ss'!

Item was changed:
  ----- Method: Installer class>>krestianstvo (in category 'repositories') -----
  krestianstvo
  	"Krestianstvo SDK code repository."
+ 	^ self monticello http: 'sdk.krestianstvo.org/sdk/'!
- 	^ self monticello http: 'http://sdk.krestianstvo.org/sdk/'!

Item was changed:
  ----- Method: Installer class>>lukas (in category 'repositories') -----
  lukas
  
+ 	^ self monticello http: 'source.lukas-renggli.ch'!
- 	^ self monticello http: 'http://source.lukas-renggli.ch'!

Item was changed:
  ----- Method: Installer class>>squeak (in category 'repositories') -----
  squeak
  
+ 	^self monticello https: 'source.squeak.org'!
- 	^self monticello http: 'source.squeak.org'!

Item was changed:
  ----- Method: Installer class>>squeaksource (in category 'repositories') -----
  squeaksource
  
+ 	^ self monticello https: 'www.squeaksource.com'!
- 	^ self monticello http: 'https://www.squeaksource.com'!

Item was changed:
  ----- Method: Installer class>>squeaksource3 (in category 'repositories') -----
  squeaksource3
+ 	^ self monticello http: 'ss3.gemtalksystems.com/ss/'!
- 	^ self monticello http: 'http://ss3.gemtalksystems.com/ss/'!

Item was changed:
  ----- Method: Installer class>>swasource (in category 'repositories') -----
  swasource
  	"Visit: https://www.hpi.uni-potsdam.de/hirschfeld/trac/SqueakCommunityProjects
  		Installer swasource project: 'MetacelloRepository'; open.
  		Installer swasource project: 'SwaUtilities'; open.
  	"
  		
+ 	^ self monticello https: 'www.hpi.uni-potsdam.de/hirschfeld/squeaksource'!
- 	^ self monticello http: 'https://www.hpi.uni-potsdam.de/hirschfeld/squeaksource'!

Item was changed:
  ----- Method: Installer class>>wiresong (in category 'repositories') -----
  wiresong
  
+ 	^ self monticello http: 'source.wiresong.ca'!
- 	^ self monticello http: 'http://source.wiresong.ca'!

Item was changed:
  ----- Method: InstallerMonticello>>http:user:password: (in category 'instance creation') -----
  http: aUrl user: name password: secret
+ 	self setRepositoryFor: aUrl scheme: #http user: name password: secret!
- 	| url |
- 	url := (aUrl includesSubstring: '://')
- 		ifTrue: [aUrl]
- 		ifFalse: ['http://', aUrl].
- 	mc := self classMCHttpRepository location: url user: name password: secret.
- 	root := mc locationWithTrailingSlash	
-  !

Item was added:
+ ----- Method: InstallerMonticello>>https: (in category 'instance creation') -----
+ https: aUrl  
+ 	
+ 	self https: aUrl user: '' password: ''
+ 		
+  !

Item was added:
+ ----- Method: InstallerMonticello>>https:user:password: (in category 'instance creation') -----
+ https: aUrl user: name password: secret
+ 	self setRepositoryFor: aUrl scheme: #https user: name password: secret!

Item was added:
+ ----- Method: InstallerMonticello>>setRepositoryFor:scheme:user:password: (in category 'private') -----
+ setRepositoryFor: aUrl scheme: scheme user: name password: secret
+ 	| url |
+ 	url := (aUrl includesSubstring: '://')
+ 			ifTrue: [aUrl]
+ 			ifFalse: [scheme, '://', aUrl].
+ 	mc := self classMCHttpRepository location: url user: name password: secret.
+ 	root := mc locationWithTrailingSlash!