The Trunk: Installer-Core-mt.433.mcz

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

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

Name: Installer-Core-mt.433
Author: mt
Time: 21 June 2019, 2:48:37.485774 pm
UUID: a6e2501c-d477-814a-802e-d2eeacb08b6b
Ancestors: Installer-Core-fn.432

Fixes bug in Metacello update code in Installer. Only occurred when calling #ensureRecentMetacello in an image that has Metacello installed already.

=============== Diff against Installer-Core-fn.432 ===============

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: [
  "Prepare a clean environment for it."
  Smalltalk globals removeKey: #Metacello.
  "Get the Metacello configuration (for Squeak users)"
  Installer gemsource
  project: 'metacello';
  addPackage: 'ConfigurationOfMetacello';
  install.
 
  "Bootstrap Metacello Preview, using mcz files (#'previewBootstrap' symbolic version"
  ((Smalltalk classNamed: #ConfigurationOfMetacello) project
+ version: #'previewBootstrap') load].
- version: #'previewBootstrap') load.
 
+ metacello := Smalltalk classNamed: #Metacello.
- metacello := Smalltalk classNamed: #Metacello ].
 
  "Now load latest version of Metacello"
  metacello new
  baseline: 'Metacello';
  repository: 'github://Metacello/metacello:master/repository';
  get.
  metacello new
  baseline: 'Metacello';
  repository: 'github://Metacello/metacello:master/repository';
  load: #('default' 'Metacello-Help').
  !