Marcel Taeumel uploaded a new version of ReleaseBuilder to project The Trunk:
http://source.squeak.org/trunk/ReleaseBuilder-dtl.198.mcz

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

Name: ReleaseBuilder-dtl.198
Author: dtl
Time: 18 September 2019, 10:37:49.461592 pm
UUID: 93409652-4167-4790-a02a-ec5e54f2c036
Ancestors: ReleaseBuilder-mt.197

When preparing a new release image, arrange for the home Morphic project to have a parent MVC project. The MVC project supports emergency debugging in the event of unrecoverable Morphic problems, and will fall back on the traditional emergency evaluator if MVC debugging fails.

=============== Diff against ReleaseBuilder-mt.197 ===============

Item was added:
+ ----- Method: ReleaseBuilder class>>addMVCParentProject (in category 'scripts - support') -----
+ addMVCParentProject
+ 	"The home project is a single Morphic project. Let the home project have a
+ 	parent MVC project as the root of the project tree. The MVC project supports
+ 	emergency debugging in the event of unrecoverable Morphic problems, and
+ 	will fall back on the traditional emergency evaluator if MVC debugging fails.
+ 	If MVC is not installed in the image, then do nothing."
+ 
+ 	(Smalltalk hasClassNamed:#MVCProject) ifTrue: [ | cls |
+ 		cls := Smalltalk classNamed: #MVCProject.
+ 		((Project topProject) perform: #isMVC)
+ 			ifFalse: [(cls new name: 'The root project') beTopProject ] ].
+ !

Item was changed:
  ----- Method: ReleaseBuilder class>>checkCurrentProjects (in category 'scripts - support') -----
  checkCurrentProjects
  
  	Project current isMorphic ifFalse: [
  		Warning signal: 'The current project is not Morphic. Please create a new Morphic project, enter it, and restart the release building process.'].
  	
+ 	Project allProjects size
+ 		caseOf: {
+ 			[ 1 ]  -> [ self addMVCParentProject ] .
+ 			[ 2 ] -> [ ((Project current parent) perform: #isMVC) ifFalse: [ Warning signal: 'Parent of the home project should be an MVC project.' ]  ] }
+ 		otherwise: [ Warning signal: 'There should be one home Morphic project with a parent MVC project for fallback debugging.' ] .
- 	Project allProjects size = 1 ifFalse: [
- 		Warning signal: 'There should only be one project.'].
  	
  	"Avoid strange drawing issues."
  	Project current world allMorphsDo: [:m | m removeProperty: #errorOnDraw].!