"Postscript:
Leave the line above, and replace the rest of this comment by a useful one.
Executable statements should follow this comment, and should
be separated by periods, with no exclamation points (!!).
Be sure to put any further comments in double-quotes, like this one."

|repository|
repository := MCHttpRepository
                location: 'http://ss3.gemstone.com/ss/Pharo14'
                user: ''
                password: ''.

Author fullName: 'Mr.Cleaner'.
Object compile: 'progressInitiationExceptionDefaultAction: anException

	| result |

	result := anException workBlock value: [:barVal | ].

	anException resume: result'.

[ (repository loadVersionFromFileNamed:'ScriptLoader14-MarcusDenker.406.mcz') load. ] 
   on: ProgressInitiationException 
   do: [ :anException| anException resume: (anException workBlock value: [:barVal | ]) ].
[ScriptLoader new update14370]  on: MCMergeOrLoadWarning do: [:ex | ex resume: true].
Object removeSelector: #progressInitiationExceptionDefaultAction:.
Author reset.
!