4 December 2011 11:36:16 pm

VM: Win32 - IX86 - 6.1 - Croquet Closure Cog VM [CoInterpreter VMMaker.oscog-eem.138]
Image: Pharo1.3 [Latest update: #13315]

MetacelloFetchingMCSpecLoader(Object)>>error:
	Receiver: a MetacelloFetchingMCSpecLoader(linear load : 1.0.6.4 [ConfigurationOfGrease])
	Arguments and temporary variables: 
		aString: 	'Could not resolve: Grease-Core [Grease-Core-lr.66] in C:\Users\Hani\D...etc...
	Receiver's instance variables: 
		spec: 	a MetacelloMCVersionSpecLoader
		operator: 	#'>='
		loaderPolicy: 	a MetacelloLoaderPolicy
		disablePackageCache: 	false

MetacelloFetchingMCSpecLoader(MetacelloCommonMCSpecLoader)>>retryingResolvePackageSpecReferences:gofer:
	Receiver: a MetacelloFetchingMCSpecLoader(linear load : 1.0.6.4 [ConfigurationOfGrease])
	Arguments and temporary variables: 
<<error during printing>
	Receiver's instance variables: 
		spec: 	a MetacelloMCVersionSpecLoader
		operator: 	#'>='
		loaderPolicy: 	a MetacelloLoaderPolicy
		disablePackageCache: 	false

[| references nearestReference cachedReference externalReference loadedVersionInfos mcVersion |
self flag: #cleanup.
	cachedReference := self resolvePackageSpec: packageSpec cachedGofer: self loaderPolicy cacheGofer.
	(cachedReference ~~ nil
			and: [packageSpec getFile ~~ nil])
		ifTrue: [cachedReference name = packageSpec file
				ifTrue: [^ self]].
	references := self retryingResolvePackageSpecReferences: packageSpec gofer: gofer.
	nearestReference := references last asMetacelloCachingResolvedReference.
	(cachedReference ~~ nil
			and: [cachedReference name = nearestReference name])
		ifTrue: [^ self].
	(self ignoreImage not
			and: [(loadedVersionInfos := self ancestorsFor: packageSpec) ~~ nil])
		ifTrue: [loadedVersionInfos
				do: [:info | 
					info name = nearestReference name
						ifTrue: [^ self].
					nil]].
	externalReference := (references
				select: [:ref | ref name = nearestReference name]) first asMetacelloCachingResolvedReference.
	self repositoryMap at: externalReference name put: externalReference repository.
	(self
		resolveDependencies: externalReference
		nearest: nearestReference
		into: (OrderedCollection with: nearestReference))
		do: [:reference | 
			| pSpec l |
			mcVersion := reference version.
			(l := (GoferVersionReference name: reference name)
							resolveAllWith: self loaderPolicy cacheGofer) isEmpty
				ifTrue: [self cacheRepository storeVersion: mcVersion.
					reference == nearestReference
						ifTrue: [pSpec := packageSpec]
						ifFalse: [pSpec := packageSpec project packageSpec.
							pSpec name: mcVersion info].
					self loadData
						addVersion: mcVersion
						versionInfo: mcVersion info
						resolvedReference: reference
						packageSpec: pSpec]].
	self loaderPolicy resetCacheGofer.
	self preLoad: packageSpec.
	(MetacelloDirective
		loadPackage: packageSpec
		externalReference: externalReference
		loader: self)
		addTo: self loadDirective.
	self postLoad: packageSpec.
	Transcript cr; show: 'Fetched -> ' , externalReference name , ' --- ' , externalReference repository description , ' --- ' , nearestReference repository description] in MetacelloFetchingMCSpecLoader>>linearLoadPackageSpec:gofer:
	Receiver: a MetacelloFetchingMCSpecLoader(linear load : 1.0.6.4 [ConfigurationOfGrease])
	Arguments and temporary variables: 
		packageSpec: 	spec 
	name: 'Grease-Core';
	includes: #('Grease-Pharo-Core' );
	f...etc...
		gofer: 	a MetacelloGofer
		references: 	nil
		nearestReference: 	nil
		cachedReference: 	nil
		externalReference: 	nil
		loadedVersionInfos: 	nil
		mcVersion: 	#(nil)
	Receiver's instance variables: 
		spec: 	a MetacelloMCVersionSpecLoader
		operator: 	#'>='
		loaderPolicy: 	a MetacelloLoaderPolicy
		disablePackageCache: 	false

[:bar | 
bar value: 1.
	aBlock value.
	bar value: 2] in MetacelloPharoPlatform>>do:displaying:
	Receiver: a MetacelloPharoPlatform
	Arguments and temporary variables: 
		aBlock: 	[:barValArg | 
| barVal return newBarSize |
barVal := barValArg.
	retur...etc...
		bar: 	[| references nearestReference cachedReference externalReference loadedVer...etc...
	Receiver's instance variables: 
		bypassProgressBars: 	false
		bypassGoferLoadUpdateCategories: 	false

[result := workBlock value: progress] in [[result := workBlock value: progress]
		on: ProgressNotification
		do: [:ex | 
			ex extraParam isString
				ifTrue: [SystemProgressMorph uniqueInstance labelAt: progress put: ex extraParam].
			ex resume]] in ProgressInitiationException>>defaultMorphicAction
	Receiver: ProgressInitiationException
	Arguments and temporary variables: 
		progress: 	[:barValArg | 
| barVal return newBarSize |
barVal := barValArg.
	ret...etc...
		result: 	#(nil)
	Receiver's instance variables: 
		messageText: 	nil
		tag: 	nil
		signaler: 	'Fetching Grease-Core-lr.66'
		signalContext: 	ProgressInitiationException(Exception)>>signal
		handlerContext: 	nil
		outerContext: 	nil
		workBlock: 	[:bar | 
bar value: 1.
	aBlock value.
	bar value: 2]
		maxVal: 	2
		minVal: 	0
		aPoint: 	475@361
		progressTitle: 	'Fetching Grease-Core-lr.66'

BlockClosure>>on:do:
	Receiver: [result := workBlock value: progress]
	Arguments and temporary variables: 
		exception: 	ProgressNotification
		handlerAction: 	[:ex | 
ex extraParam isString
		ifTrue: [SystemProgressMorph un...etc...
		handlerActive: 	true
	Receiver's instance variables: 
		outerContext: 	[[result := workBlock value: progress]
		on: ProgressNotification...etc...
		startpc: 	87
		numArgs: 	0

[[result := workBlock value: progress]
		on: ProgressNotification
		do: [:ex | 
			ex extraParam isString
				ifTrue: [SystemProgressMorph uniqueInstance labelAt: progress put: ex extraParam].
			ex resume]] in ProgressInitiationException>>defaultMorphicAction
	Receiver: ProgressInitiationException
	Arguments and temporary variables: 
		progress: 	[:barValArg | 
| barVal return newBarSize |
barVal := barValArg.
	ret...etc...
		result: 	#(nil)
	Receiver's instance variables: 
		messageText: 	nil
		tag: 	nil
		signaler: 	'Fetching Grease-Core-lr.66'
		signalContext: 	ProgressInitiationException(Exception)>>signal
		handlerContext: 	nil
		outerContext: 	nil
		workBlock: 	[:bar | 
bar value: 1.
	aBlock value.
	bar value: 2]
		maxVal: 	2
		minVal: 	0
		aPoint: 	475@361
		progressTitle: 	'Fetching Grease-Core-lr.66'

BlockClosure>>ensure:
	Receiver: [[result := workBlock value: progress]
		on: ProgressNotification
		do: [:ex | 
			ex extr...etc...
	Arguments and temporary variables: 
		aBlock: 	[SystemProgressMorph close: progress]
		complete: 	nil
		returnValue: 	nil
	Receiver's instance variables: 
		outerContext: 	ProgressInitiationException>>defaultMorphicAction
		startpc: 	81
		numArgs: 	0

ProgressInitiationException>>defaultMorphicAction
	Receiver: ProgressInitiationException
	Arguments and temporary variables: 
		progress: 	[:barValArg | 
| barVal return newBarSize |
barVal := barValArg.
	ret...etc...
		result: 	#(nil)
	Receiver's instance variables: 
		messageText: 	nil
		tag: 	nil
		signaler: 	'Fetching Grease-Core-lr.66'
		signalContext: 	ProgressInitiationException(Exception)>>signal
		handlerContext: 	nil
		outerContext: 	nil
		workBlock: 	[:bar | 
bar value: 1.
	aBlock value.
	bar value: 2]
		maxVal: 	2
		minVal: 	0
		aPoint: 	475@361
		progressTitle: 	'Fetching Grease-Core-lr.66'

MorphicUIManager>>progressInitiationExceptionDefaultAction:
	Receiver: a MorphicUIManager
	Arguments and temporary variables: 
		anException: 	ProgressInitiationException
	Receiver's instance variables: 
		interactiveParser: 	nil

ProgressInitiationException>>defaultAction
	Receiver: ProgressInitiationException
	Arguments and temporary variables: 

	Receiver's instance variables: 
		messageText: 	nil
		tag: 	nil
		signaler: 	'Fetching Grease-Core-lr.66'
		signalContext: 	ProgressInitiationException(Exception)>>signal
		handlerContext: 	nil
		outerContext: 	nil
		workBlock: 	[:bar | 
bar value: 1.
	aBlock value.
	bar value: 2]
		maxVal: 	2
		minVal: 	0
		aPoint: 	475@361
		progressTitle: 	'Fetching Grease-Core-lr.66'

UndefinedObject>>handleSignal:
	Receiver: nil
	Arguments and temporary variables: 
		exception: 	ProgressInitiationException
	Receiver's instance variables: 
nil

MethodContext(ContextPart)>>handleSignal:
	Receiver: BlockClosure>>on:do:
	Arguments and temporary variables: 
		exception: 	ProgressInitiationException
		val: 	nil
	Receiver's instance variables: 
		sender: 	PasteUpMorph>>becomeActiveDuring:
		pc: 	17
		stackp: 	3
		method: 	(BlockClosure>>#on:do: "a CompiledMethod(144703488)")
		closureOrNil: 	nil
		receiver: 	[aBlock value]

MethodContext(ContextPart)>>handleSignal:
	Receiver: BlockClosure>>on:do:
	Arguments and temporary variables: 
		exception: 	ProgressInitiationException
		val: 	nil
	Receiver's instance variables: 
		sender: 	SmalltalkEditor>>evaluateSelectionAndDo:
		pc: 	17
		stackp: 	3
		method: 	(BlockClosure>>#on:do: "a CompiledMethod(144703488)")
		closureOrNil: 	nil
		receiver: 	[rcvr class evaluatorClass new
		evaluate: self selectionForDoitAsStr...etc...

MethodContext(ContextPart)>>handleSignal:
	Receiver: BlockClosure>>on:do:
	Arguments and temporary variables: 
		exception: 	ProgressInitiationException
		val: 	nil
	Receiver's instance variables: 
		sender: 	[[result := workBlock value: progress]
		on: ProgressNotification
		do:...etc...
		pc: 	17
		stackp: 	3
		method: 	(BlockClosure>>#on:do: "a CompiledMethod(144703488)")
		closureOrNil: 	nil
		receiver: 	[result := workBlock value: progress]

MethodContext(ContextPart)>>handleSignal:
	Receiver: BlockClosure>>on:do:
	Arguments and temporary variables: 
		exception: 	ProgressInitiationException
		val: 	nil
	Receiver's instance variables: 
		sender: 	MetacelloPharoPlatform(MetacelloPlatform)>>useStackCacheDuring:defaultD...etc...
		pc: 	17
		stackp: 	3
		method: 	(BlockClosure>>#on:do: "a CompiledMethod(144703488)")
		closureOrNil: 	nil
		receiver: 	[^ aBlock value: dict]

MethodContext(ContextPart)>>handleSignal:
	Receiver: BlockClosure>>on:do:
	Arguments and temporary variables: 
		exception: 	ProgressInitiationException
		val: 	nil
	Receiver's instance variables: 
		sender: 	MetacelloPharoPlatform(MetacelloPlatform)>>useStackCacheDuring:defaultD...etc...
		pc: 	17
		stackp: 	3
		method: 	(BlockClosure>>#on:do: "a CompiledMethod(144703488)")
		closureOrNil: 	nil
		receiver: 	[^ aBlock value: dict]

MethodContext(ContextPart)>>handleSignal:
	Receiver: BlockClosure>>on:do:
	Arguments and temporary variables: 
		exception: 	ProgressInitiationException
		val: 	nil
	Receiver's instance variables: 
		sender: 	[[result := workBlock value: progress]
		on: ProgressNotification
		do:...etc...
		pc: 	17
		stackp: 	3
		method: 	(BlockClosure>>#on:do: "a CompiledMethod(144703488)")
		closureOrNil: 	nil
		receiver: 	[result := workBlock value: progress]

MethodContext(ContextPart)>>handleSignal:
	Receiver: BlockClosure>>on:do:
	Arguments and temporary variables: 
		exception: 	ProgressInitiationException
		val: 	nil
	Receiver's instance variables: 
		sender: 	MetacelloPharoPlatform(MetacelloPlatform)>>useStackCacheDuring:defaultD...etc...
		pc: 	17
		stackp: 	3
		method: 	(BlockClosure>>#on:do: "a CompiledMethod(144703488)")
		closureOrNil: 	nil
		receiver: 	[^ aBlock value: dict]

MethodContext(ContextPart)>>handleSignal:
	Receiver: BlockClosure>>on:do:
	Arguments and temporary variables: 
		exception: 	ProgressInitiationException
		val: 	nil
	Receiver's instance variables: 
		sender: 	MetacelloPharoPlatform(MetacelloPlatform)>>useStackCacheDuring:defaultD...etc...
		pc: 	17
		stackp: 	3
		method: 	(BlockClosure>>#on:do: "a CompiledMethod(144703488)")
		closureOrNil: 	nil
		receiver: 	[^ aBlock value: dict]

MethodContext(ContextPart)>>handleSignal:
	Receiver: BlockClosure>>on:do:
	Arguments and temporary variables: 
		exception: 	ProgressInitiationException
		val: 	nil
	Receiver's instance variables: 
		sender: 	[[result := workBlock value: progress]
		on: ProgressNotification
		do:...etc...
		pc: 	17
		stackp: 	3
		method: 	(BlockClosure>>#on:do: "a CompiledMethod(144703488)")
		closureOrNil: 	nil
		receiver: 	[result := workBlock value: progress]

MethodContext(ContextPart)>>handleSignal:
	Receiver: BlockClosure>>on:do:
	Arguments and temporary variables: 
		exception: 	ProgressInitiationException
		val: 	nil
	Receiver's instance variables: 
		sender: 	MetacelloPharoPlatform(MetacelloPlatform)>>useStackCacheDuring:defaultD...etc...
		pc: 	17
		stackp: 	3
		method: 	(BlockClosure>>#on:do: "a CompiledMethod(144703488)")
		closureOrNil: 	nil
		receiver: 	[^ aBlock value: dict]

MethodContext(ContextPart)>>handleSignal:
	Receiver: BlockClosure>>on:do:
	Arguments and temporary variables: 
		exception: 	ProgressInitiationException
		val: 	nil
	Receiver's instance variables: 
		sender: 	MetacelloPharoPlatform(MetacelloPlatform)>>useStackCacheDuring:defaultD...etc...
		pc: 	17
		stackp: 	3
		method: 	(BlockClosure>>#on:do: "a CompiledMethod(144703488)")
		closureOrNil: 	nil
		receiver: 	[^ aBlock value: dict]

MethodContext(ContextPart)>>handleSignal:
	Receiver: BlockClosure>>on:do:
	Arguments and temporary variables: 
		exception: 	ProgressInitiationException
		val: 	nil
	Receiver's instance variables: 
		sender: 	[[result := workBlock value: progress]
		on: ProgressNotification
		do:...etc...
		pc: 	17
		stackp: 	3
		method: 	(BlockClosure>>#on:do: "a CompiledMethod(144703488)")
		closureOrNil: 	nil
		receiver: 	[result := workBlock value: progress]

MethodContext(ContextPart)>>handleSignal:
	Receiver: BlockClosure>>on:do:
	Arguments and temporary variables: 
		exception: 	ProgressInitiationException
		val: 	nil
	Receiver's instance variables: 
		sender: 	MetacelloPharoPlatform(MetacelloPlatform)>>useStackCacheDuring:defaultD...etc...
		pc: 	17
		stackp: 	3
		method: 	(BlockClosure>>#on:do: "a CompiledMethod(144703488)")
		closureOrNil: 	nil
		receiver: 	[^ aBlock value: dict]

ProgressInitiationException(Exception)>>signal
	Receiver: ProgressInitiationException
	Arguments and temporary variables: 

	Receiver's instance variables: 
		messageText: 	nil
		tag: 	nil
		signaler: 	'Fetching Grease-Core-lr.66'
		signalContext: 	ProgressInitiationException(Exception)>>signal
		handlerContext: 	nil
		outerContext: 	nil
		workBlock: 	[:bar | 
bar value: 1.
	aBlock value.
	bar value: 2]
		maxVal: 	2
		minVal: 	0
		aPoint: 	475@361
		progressTitle: 	'Fetching Grease-Core-lr.66'

ProgressInitiationException>>display:at:from:to:during:
	Receiver: ProgressInitiationException
	Arguments and temporary variables: 
		argString: 	'Fetching Grease-Core-lr.66'
		argPoint: 	475@361
		argMinVal: 	0
		argMaxVal: 	2
		argWorkBlock: 	[:bar | 
bar value: 1.
	aBlock value.
	bar value: 2]
	Receiver's instance variables: 
		messageText: 	nil
		tag: 	nil
		signaler: 	'Fetching Grease-Core-lr.66'
		signalContext: 	ProgressInitiationException(Exception)>>signal
		handlerContext: 	nil
		outerContext: 	nil
		workBlock: 	[:bar | 
bar value: 1.
	aBlock value.
	bar value: 2]
		maxVal: 	2
		minVal: 	0
		aPoint: 	475@361
		progressTitle: 	'Fetching Grease-Core-lr.66'

ProgressInitiationException class>>display:at:from:to:during:
	Receiver: ProgressInitiationException
	Arguments and temporary variables: 
		aString: 	'Fetching Grease-Core-lr.66'
		aPoint: 	475@361
		minVal: 	0
		maxVal: 	2
		workBlock: 	[:bar | 
bar value: 1.
	aBlock value.
	bar value: 2]
	Receiver's instance variables: 
		superclass: 	Exception
		methodDict: 	a MethodDictionary(#defaultAction->(ProgressInitiationException>>#d...etc...
		format: 	152
		instanceVariables: 	#('workBlock' 'maxVal' 'minVal' 'aPoint' 'progressTitle')
		organization: 	('*Morphic' defaultMorphicAction)
('accessing' maxVal minVal poin...etc...
		subclasses: 	nil
		name: 	#ProgressInitiationException
		classPool: 	nil
		sharedPools: 	nil
		environment: 	a SystemDictionary(lots of globals)
		category: 	#'UIManager-Support'
		traitComposition: 	nil
		localSelectors: 	nil

ByteString(String)>>displayProgressAt:from:to:during:
	Receiver: 'Fetching Grease-Core-lr.66'
	Arguments and temporary variables: 
		aPoint: 	475@361
		minVal: 	0
		maxVal: 	2
		workBlock: 	[:bar | 
bar value: 1.
	aBlock value.
	bar value: 2]
	Receiver's instance variables: 
'Fetching Grease-Core-lr.66'

MetacelloPharoPlatform>>do:displaying:
	Receiver: a MetacelloPharoPlatform
	Arguments and temporary variables: 
		aBlock: 	[| references nearestReference cachedReference externalReference loaded...etc...
		aString: 	'Fetching Grease-Core-lr.66'
	Receiver's instance variables: 
		bypassProgressBars: 	false
		bypassGoferLoadUpdateCategories: 	false

MetacelloFetchingMCSpecLoader>>linearLoadPackageSpec:gofer:
	Receiver: a MetacelloFetchingMCSpecLoader(linear load : 1.0.6.4 [ConfigurationOfGrease])
	Arguments and temporary variables: 
		packageSpec: 	spec 
	name: 'Grease-Core';
	includes: #('Grease-Pharo-Core' );
	f...etc...
		gofer: 	a MetacelloGofer
	Receiver's instance variables: 
		spec: 	a MetacelloMCVersionSpecLoader
		operator: 	#'>='
		loaderPolicy: 	a MetacelloLoaderPolicy
		disablePackageCache: 	false

MetacelloPackageSpec>>loadUsing:gofer:
	Receiver: spec 
	name: 'Grease-Core';
	includes: #('Grease-Pharo-Core' );
	file: 'Grease-Core-lr.66'...etc...
	Arguments and temporary variables: 
		aLoader: 	a MetacelloFetchingMCSpecLoader(linear load : 1.0.6.4 [ConfigurationOf...etc...
		gofer: 	a MetacelloGofer
	Receiver's instance variables: 
		project: 	ConfigurationOfGrease(1.0-alpha1-baseline [ConfigurationOfGrease], 1.0...etc...
		loader: 	nil
		name: 	'Grease-Core'
		requires: 	#()
		includes: 	#('Grease-Pharo-Core')
		answers: 	#()
		file: 	'Grease-Core-lr.66'
		repositories: 	spec

		goferPackage: 	a MetacelloGoferPackage name: 'Grease-Core'
		preLoadDoIt: 	nil
		postLoadDoIt: 	nil

[:pkg | pkg loadUsing: self gofer: gofer] in MetacelloFetchingMCSpecLoader(MetacelloCommonMCSpecLoader)>>linearLoadPackageSpecs:repositories:
	Receiver: a MetacelloFetchingMCSpecLoader(linear load : 1.0.6.4 [ConfigurationOfGrease])
	Arguments and temporary variables: 
		gofer: 	spec 
	name: 'Grease-Core';
	includes: #('Grease-Pharo-Core' );
	file: '...etc...
		pkg: 	a MetacelloGofer
	Receiver's instance variables: 
		spec: 	a MetacelloMCVersionSpecLoader
		operator: 	#'>='
		loaderPolicy: 	a MetacelloLoaderPolicy
		disablePackageCache: 	false

OrderedCollection>>do:
	Receiver: an OrderedCollection(spec 
	name: 'Grease-Core';
	includes: #('Grease-Pharo-Core' );
	file...etc...
	Arguments and temporary variables: 
		aBlock: 	[:pkg | pkg loadUsing: self gofer: gofer]
		index: 	3
	Receiver's instance variables: 
		array: 	an Array(nil nil spec 
	name: 'Grease-Core';
	includes: #('Grease-Pharo-...etc...
		firstIndex: 	3
		lastIndex: 	6

MetacelloFetchingMCSpecLoader(MetacelloCommonMCSpecLoader)>>linearLoadPackageSpecs:repositories:
	Receiver: a MetacelloFetchingMCSpecLoader(linear load : 1.0.6.4 [ConfigurationOfGrease])
	Arguments and temporary variables: 
		packageSpecs: 	an OrderedCollection(spec 
	name: 'Grease-Core';
	includes: #('Gr...etc...
		repositories: 	an OrderedCollection(a MCHttpRepository(http://www.squeaksource.c...etc...
		gofer: 	a MetacelloGofer
	Receiver's instance variables: 
		spec: 	a MetacelloMCVersionSpecLoader
		operator: 	#'>='
		loaderPolicy: 	a MetacelloLoaderPolicy
		disablePackageCache: 	false

[super linearLoadPackageSpecs: packageSpecs repositories: repositories] in MetacelloFetchingMCSpecLoader>>linearLoadPackageSpecs:repositories:
	Receiver: a MetacelloFetchingMCSpecLoader(linear load : 1.0.6.4 [ConfigurationOfGrease])
	Arguments and temporary variables: 
		packageSpecs: 	an OrderedCollection(spec 
	name: 'Grease-Core';
	includes: #('Gr...etc...
		repositories: 	an OrderedCollection(a MCHttpRepository(http://www.squeaksource.c...etc...
	Receiver's instance variables: 
		spec: 	a MetacelloMCVersionSpecLoader
		operator: 	#'>='
		loaderPolicy: 	a MetacelloLoaderPolicy
		disablePackageCache: 	false

BlockClosure>>ensure:
	Receiver: [super linearLoadPackageSpecs: packageSpecs repositories: repositories]
	Arguments and temporary variables: 
		aBlock: 	[loadDirective := oldRoot]
		complete: 	nil
		returnValue: 	nil
	Receiver's instance variables: 
		outerContext: 	MetacelloFetchingMCSpecLoader>>linearLoadPackageSpecs:repositorie...etc...
		startpc: 	33
		numArgs: 	0

MetacelloLoaderPolicy>>pushLoadDirective:during:
	Receiver: a MetacelloLoaderPolicy
	Arguments and temporary variables: 
		aLoaderDirective: 	linear load : 1.0.6.4 [ConfigurationOfGrease]
		aBlock: 	[super linearLoadPackageSpecs: packageSpecs repositories: repositories]...etc...
		oldRoot: 	atomic load : default [ConfigurationOfGlamour]
	load : Glamour-Announc...etc...
	Receiver's instance variables: 
		overrideRepositories: 	nil
		repositoryMap: 	a Dictionary(size 149)
		ensuredMap: 	a Dictionary('DSM for Moose'->#present 'EyeSee'->#present 'EyeSee f...etc...
		cacheRepository: 	a MCDictionaryRepository(cache)
		cacheGofer: 	a Gofer
		ignoreImage: 	false
		loadData: 	a MetacelloLoadData
		loadDirective: 	linear load : 1.0.6.4 [ConfigurationOfGrease]
		silently: 	false

MetacelloLoaderPolicy>>pushLinearLoadDirectivesDuring:for:
	Receiver: a MetacelloLoaderPolicy
	Arguments and temporary variables: 
		aBlock: 	[super linearLoadPackageSpecs: packageSpecs repositories: repositories]...etc...
		aLoader: 	a MetacelloFetchingMCSpecLoader(linear load : 1.0.6.4 [ConfigurationOf...etc...
	Receiver's instance variables: 
		overrideRepositories: 	nil
		repositoryMap: 	a Dictionary(size 149)
		ensuredMap: 	a Dictionary('DSM for Moose'->#present 'EyeSee'->#present 'EyeSee f...etc...
		cacheRepository: 	a MCDictionaryRepository(cache)
		cacheGofer: 	a Gofer
		ignoreImage: 	false
		loadData: 	a MetacelloLoadData
		loadDirective: 	linear load : 1.0.6.4 [ConfigurationOfGrease]
		silently: 	false


--- The full stack ---
MetacelloFetchingMCSpecLoader(Object)>>error:
MetacelloFetchingMCSpecLoader(MetacelloCommonMCSpecLoader)>>retryingResolvePackageSpecReferences:gofer:
[| references nearestReference cachedReference externalReference loadedVersionInfos mcVersion |
self flag: #cleanup.
	cachedReference := self resolvePackageSpec: packageSpec cachedGofer: self loaderPolicy cacheGofer.
	(cachedReference ~~ nil
			and: [packageSpec getFile ~~ nil])
		ifTrue: [cachedReference name = packageSpec file
				ifTrue: [^ self]].
	references := self retryingResolvePackageSpecReferences: packageSpec gofer: gofer.
	nearestReference := references last asMetacelloCachingResolvedReference.
	(cachedReference ~~ nil
			and: [cachedReference name = nearestReference name])
		ifTrue: [^ self].
	(self ignoreImage not
			and: [(loadedVersionInfos := self ancestorsFor: packageSpec) ~~ nil])
		ifTrue: [loadedVersionInfos
				do: [:info | 
					info name = nearestReference name
						ifTrue: [^ self].
					nil]].
	externalReference := (references
				select: [:ref | ref name = nearestReference name]) first asMetacelloCachingResolvedReference.
	self repositoryMap at: externalReference name put: externalReference repository.
	(self
		resolveDependencies: externalReference
		nearest: nearestReference
		into: (OrderedCollection with: nearestReference))
		do: [:reference | 
			| pSpec l |
			mcVersion := reference version.
			(l := (GoferVersionReference name: reference name)
							resolveAllWith: self loaderPolicy cacheGofer) isEmpty
				ifTrue: [self cacheRepository storeVersion: mcVersion.
					reference == nearestReference
						ifTrue: [pSpec := packageSpec]
						ifFalse: [pSpec := packageSpec project packageSpec.
							pSpec name: mcVersion info].
					self loadData
						addVersion: mcVersion
						versionInfo: mcVersion info
						resolvedReference: reference
						packageSpec: pSpec]].
	self loaderPolicy resetCacheGofer.
	self preLoad: packageSpec.
	(MetacelloDirective
		loadPackage: packageSpec
		externalReference: externalReference
		loader: self)
		addTo: self loadDirective.
	self postLoad: packageSpec.
	Transcript cr; show: 'Fetched -> ' , externalReference name , ' --- ' , externalReference repository description , ' --- ' , nearestReference repository description] in MetacelloFetchingMCSpecLoader>>linearLoadPackageSpec:gofer:
[:bar | 
bar value: 1.
	aBlock value.
	bar value: 2] in MetacelloPharoPlatform>>do:displaying:
[result := workBlock value: progress] in [[result := workBlock value: progress]
		on: ProgressNotification
		do: [:ex | 
			ex extraParam isString
				ifTrue: [SystemProgressMorph uniqueInstance labelAt: progress put: ex extraParam].
			ex resume]] in ProgressInitiationException>>defaultMorphicAction
BlockClosure>>on:do:
[[result := workBlock value: progress]
		on: ProgressNotification
		do: [:ex | 
			ex extraParam isString
				ifTrue: [SystemProgressMorph uniqueInstance labelAt: progress put: ex extraParam].
			ex resume]] in ProgressInitiationException>>defaultMorphicAction
BlockClosure>>ensure:
ProgressInitiationException>>defaultMorphicAction
MorphicUIManager>>progressInitiationExceptionDefaultAction:
ProgressInitiationException>>defaultAction
UndefinedObject>>handleSignal:
MethodContext(ContextPart)>>handleSignal:
MethodContext(ContextPart)>>handleSignal:
MethodContext(ContextPart)>>handleSignal:
MethodContext(ContextPart)>>handleSignal:
MethodContext(ContextPart)>>handleSignal:
MethodContext(ContextPart)>>handleSignal:
MethodContext(ContextPart)>>handleSignal:
MethodContext(ContextPart)>>handleSignal:
MethodContext(ContextPart)>>handleSignal:
MethodContext(ContextPart)>>handleSignal:
MethodContext(ContextPart)>>handleSignal:
MethodContext(ContextPart)>>handleSignal:
MethodContext(ContextPart)>>handleSignal:
ProgressInitiationException(Exception)>>signal
ProgressInitiationException>>display:at:from:to:during:
ProgressInitiationException class>>display:at:from:to:during:
ByteString(String)>>displayProgressAt:from:to:during:
MetacelloPharoPlatform>>do:displaying:
MetacelloFetchingMCSpecLoader>>linearLoadPackageSpec:gofer:
MetacelloPackageSpec>>loadUsing:gofer:
[:pkg | pkg loadUsing: self gofer: gofer] in MetacelloFetchingMCSpecLoader(MetacelloCommonMCSpecLoader)>>linearLoadPackageSpecs:repositories:
OrderedCollection>>do:
MetacelloFetchingMCSpecLoader(MetacelloCommonMCSpecLoader)>>linearLoadPackageSpecs:repositories:
[super linearLoadPackageSpecs: packageSpecs repositories: repositories] in MetacelloFetchingMCSpecLoader>>linearLoadPackageSpecs:repositories:
BlockClosure>>ensure:
MetacelloLoaderPolicy>>pushLoadDirective:during:
MetacelloLoaderPolicy>>pushLinearLoadDirectivesDuring:for:
 - - - - - - - - - - - - - - -  
			- - - - - - - - - - - - - - - - - -
MetacelloFetchingMCSpecLoader>>linearLoadPackageSpecs:repositories:
MetacelloFetchingMCSpecLoader(MetacelloCommonMCSpecLoader)>>load
MetacelloMCVersionSpecLoader>>load
MetacelloMCVersion>>executeLoadFromArray:
[:dict | ^ self executeLoadFromArray: anArray] in [self versionSpec loader: newLoader.
	MetacelloPlatform current
		useStackCacheDuring: [:dict | ^ self executeLoadFromArray: anArray]
		defaultDictionary: Dictionary new] in [[self versionSpec loader: newLoader.
	MetacelloPlatform current
		useStackCacheDuring: [:dict | ^ self executeLoadFromArray: anArray]
		defaultDictionary: Dictionary new]
		ensure: [self versionSpec loader: originalLoader]] in MetacelloMCVersion>>fetchRequiredFromArray:
[^ aBlock value: dict] in MetacelloPharoPlatform(MetacelloPlatform)>>useStackCacheDuring:defaultDictionary:
BlockClosure>>on:do:
MetacelloPharoPlatform(MetacelloPlatform)>>useStackCacheDuring:defaultDictionary:
[self versionSpec loader: newLoader.
	MetacelloPlatform current
		useStackCacheDuring: [:dict | ^ self executeLoadFromArray: anArray]
		defaultDictionary: Dictionary new] in [[self versionSpec loader: newLoader.
	MetacelloPlatform current
		useStackCacheDuring: [:dict | ^ self executeLoadFromArray: anArray]
		defaultDictionary: Dictionary new]
		ensure: [self versionSpec loader: originalLoader]] in MetacelloMCVersion>>fetchRequiredFromArray:
BlockClosure>>ensure:
[[self versionSpec loader: newLoader.
	MetacelloPlatform current
		useStackCacheDuring: [:dict | ^ self executeLoadFromArray: anArray]
		defaultDictionary: Dictionary new]
		ensure: [self versionSpec loader: originalLoader]] in MetacelloMCVersion>>fetchRequiredFromArray:
[:bar | 
bar value: 1.
	aBlock value.
	bar value: 2] in MetacelloPharoPlatform>>do:displaying:
[result := workBlock value: progress] in [[result := workBlock value: progress]
		on: ProgressNotification
		do: [:ex | 
			ex extraParam isString
				ifTrue: [SystemProgressMorph uniqueInstance labelAt: progress put: ex extraParam].
			ex resume]] in ProgressInitiationException>>defaultMorphicAction
BlockClosure>>on:do:
[[result := workBlock value: progress]
		on: ProgressNotification
		do: [:ex | 
			ex extraParam isString
				ifTrue: [SystemProgressMorph uniqueInstance labelAt: progress put: ex extraParam].
			ex resume]] in ProgressInitiationException>>defaultMorphicAction
BlockClosure>>ensure:
ProgressInitiationException>>defaultMorphicAction
MorphicUIManager>>progressInitiationExceptionDefaultAction:
ProgressInitiationException>>defaultAction
UndefinedObject>>handleSignal:
MethodContext(ContextPart)>>handleSignal:
MethodContext(ContextPart)>>handleSignal:
MethodContext(ContextPart)>>handleSignal:
MethodContext(ContextPart)>>handleSignal:
MethodContext(ContextPart)>>handleSignal:
MethodContext(ContextPart)>>handleSignal:
MethodContext(ContextPart)>>handleSignal:
MethodContext(ContextPart)>>handleSignal:
MethodContext(ContextPart)>>handleSignal:
MethodContext(ContextPart)>>handleSignal:
MethodContext(ContextPart)>>handleSignal:
ProgressInitiationException(Exception)>>signal
ProgressInitiationException>>display:at:from:to:during:
ProgressInitiationException class>>display:at:from:to:during:
ByteString(String)>>displayProgressAt:from:to:during:
MetacelloPharoPlatform>>do:displaying:
MetacelloMCVersion>>fetchRequiredFromArray:
[:dict | 
| projectCache |
projectCache := dict
				at: self projectClass
				ifAbsent: [dict at: self projectClass put: Dictionary new].
	(projectCache
		at: vrsn
		ifAbsent: [])
		ifNil: [projectCache at: vrsn put: list]
		ifNotNil: [:cachedList | 
			(cachedList size = list size
					and: [cachedList includesAllOf: list])
				ifTrue: [^ self].
			projectCache at: vrsn put: list].
	mcLoader preLoad: self.
	vrsn fetchRequiredFromArray: list.
	mcLoader postLoad: self] in MetacelloMCProjectSpec>>loadVersion:
[^ aBlock value: dict] in MetacelloPharoPlatform(MetacelloPlatform)>>useStackCacheDuring:defaultDictionary:
BlockClosure>>on:do:
MetacelloPharoPlatform(MetacelloPlatform)>>useStackCacheDuring:defaultDictionary:
MetacelloMCProjectSpec>>loadVersion:
MetacelloMCProjectSpec>>load
MetacelloProjectReferenceSpec>>loadUsing:gofer:
[:pkg | pkg loadUsing: self gofer: gofer] in MetacelloFetchingMCSpecLoader(MetacelloCommonMCSpecLoader)>>linearLoadPackageSpecs:repositories:
OrderedCollection>>do:
MetacelloFetchingMCSpecLoader(MetacelloCommonMCSpecLoader)>>linearLoadPackageSpecs:repositories:
[super linearLoadPackageSpecs: packageSpecs repositories: repositories] in MetacelloFetchingMCSpecLoader>>atomicLoadPackageSpecs:repositories:
BlockClosure>>ensure:
MetacelloLoaderPolicy>>pushLoadDirective:during:
MetacelloLoaderPolicy>>pushAtomicLoadDirectivesDuring:for:
MetacelloFetchingMCSpecLoader>>atomicLoadPackageSpecs:repositories:
MetacelloFetchingMCSpecLoader(MetacelloCommonMCSpecLoader)>>load
MetacelloMCVersionSpecLoader>>load
MetacelloMCVersion>>executeLoadFromArray:
[:dict | ^ self executeLoadFromArray: anArray] in [self versionSpec loader: newLoader.
	MetacelloPlatform current
		useStackCacheDuring: [:dict | ^ self executeLoadFromArray: anArray]
		defaultDictionary: Dictionary new] in [[self versionSpec loader: newLoader.
	MetacelloPlatform current
		useStackCacheDuring: [:dict | ^ self executeLoadFromArray: anArray]
		defaultDictionary: Dictionary new]
		ensure: [self versionSpec loader: originalLoader]] in MetacelloMCVersion>>fetchRequiredFromArray:
[^ aBlock value: dict] in MetacelloPharoPlatform(MetacelloPlatform)>>useStackCacheDuring:defaultDictionary:
BlockClosure>>on:do:
MetacelloPharoPlatform(MetacelloPlatform)>>useStackCacheDuring:defaultDictionary:
[self versionSpec loader: newLoader.
	MetacelloPlatform current
		useStackCacheDuring: [:dict | ^ self executeLoadFromArray: anArray]
		defaultDictionary: Dictionary new] in [[self versionSpec loader: newLoader.
	MetacelloPlatform current
		useStackCacheDuring: [:dict | ^ self executeLoadFromArray: anArray]
		defaultDictionary: Dictionary new]
		ensure: [self versionSpec loader: originalLoader]] in MetacelloMCVersion>>fetchRequiredFromArray:
BlockClosure>>ensure:
[[self versionSpec loader: newLoader.
	MetacelloPlatform current
		useStackCacheDuring: [:dict | ^ self executeLoadFromArray: anArray]
		defaultDictionary: Dictionary new]
		ensure: [self versionSpec loader: originalLoader]] in MetacelloMCVersion>>fetchRequiredFromArray:
[:bar | 
bar value: 1.
	aBlock value.
	bar value: 2] in MetacelloPharoPlatform>>do:displaying:
[result := workBlock value: progress] in [[result := workBlock value: progress]
		on: ProgressNotification
		do: [:ex | 
			ex extraParam isString
				ifTrue: [SystemProgressMorph uniqueInstance labelAt: progress put: ex extraParam].
			ex resume]] in ProgressInitiationException>>defaultMorphicAction
BlockClosure>>on:do:
[[result := workBlock value: progress]
		on: ProgressNotification
		do: [:ex | 
			ex extraParam isString
				ifTrue: [SystemProgressMorph uniqueInstance labelAt: progress put: ex extraParam].
			ex resume]] in ProgressInitiationException>>defaultMorphicAction
BlockClosure>>ensure:
ProgressInitiationException>>defaultMorphicAction
MorphicUIManager>>progressInitiationExceptionDefaultAction:
ProgressInitiationException>>defaultAction
UndefinedObject>>handleSignal:
MethodContext(ContextPart)>>handleSignal:
MethodContext(ContextPart)>>handleSignal:
MethodContext(ContextPart)>>handleSignal:
MethodContext(ContextPart)>>handleSignal:
MethodContext(ContextPart)>>handleSignal:
MethodContext(ContextPart)>>handleSignal:
MethodContext(ContextPart)>>handleSignal:
MethodContext(ContextPart)>>handleSignal:
ProgressInitiationException(Exception)>>signal
ProgressInitiationException>>display:at:from:to:during:
ProgressInitiationException class>>display:at:from:to:during:
ByteString(String)>>displayProgressAt:from:to:during:
MetacelloPharoPlatform>>do:displaying:
MetacelloMCVersion>>fetchRequiredFromArray:
[:dict | 
| projectCache |
projectCache := dict
				at: self projectClass
				ifAbsent: [dict at: self projectClass put: Dictionary new].
	(projectCache
		at: vrsn
		ifAbsent: [])
		ifNil: [projectCache at: vrsn put: list]
		ifNotNil: [:cachedList | 
			(cachedList size = list size
					and: [cachedList includesAllOf: list])
				ifTrue: [^ self].
			projectCache at: vrsn put: list].
	mcLoader preLoad: self.
	vrsn fetchRequiredFromArray: list.
	mcLoader postLoad: self] in MetacelloMCProjectSpec>>loadVersion:
[^ aBlock value: dict] in MetacelloPharoPlatform(MetacelloPlatform)>>useStackCacheDuring:defaultDictionary:
BlockClosure>>on:do:
MetacelloPharoPlatform(MetacelloPlatform)>>useStackCacheDuring:defaultDictionary:
MetacelloMCProjectSpec>>loadVersion:
MetacelloMCProjectSpec>>load
MetacelloProjectReferenceSpec>>loadUsing:gofer:
[:pkg | pkg loadUsing: self gofer: gofer] in MetacelloFetchingMCSpecLoader(MetacelloCommonMCSpecLoader)>>linearLoadPackageSpecs:repositories:
OrderedCollection>>do:
MetacelloFetchingMCSpecLoader(MetacelloCommonMCSpecLoader)>>linearLoadPackageSpecs:repositories:
[super linearLoadPackageSpecs: packageSpecs repositories: repositories] in MetacelloFetchingMCSpecLoader>>atomicLoadPackageSpecs:repositories:
BlockClosure>>ensure:
MetacelloLoaderPolicy>>pushLoadDirective:during:
MetacelloLoaderPolicy>>pushAtomicLoadDirectivesDuring:for:
MetacelloFetchingMCSpecLoader>>atomicLoadPackageSpecs:repositories:
MetacelloFetchingMCSpecLoader(MetacelloCommonMCSpecLoader)>>load
MetacelloMCVersionSpecLoader>>load
MetacelloMCVersion>>executeLoadFromArray:
[:dict | ^ self executeLoadFromArray: anArray] in [self versionSpec loader: newLoader.
	MetacelloPlatform current
		useStackCacheDuring: [:dict | ^ self executeLoadFromArray: anArray]
		defaultDictionary: Dictionary new] in [[self versionSpec loader: newLoader.
	MetacelloPlatform current
		useStackCacheDuring: [:dict | ^ self executeLoadFromArray: anArray]
		defaultDictionary: Dictionary new]
		ensure: [self versionSpec loader: originalLoader]] in MetacelloMCVersion>>fetchRequiredFromArray:
[^ aBlock value: dict] in MetacelloPharoPlatform(MetacelloPlatform)>>useStackCacheDuring:defaultDictionary:
BlockClosure>>on:do:
MetacelloPharoPlatform(MetacelloPlatform)>>useStackCacheDuring:defaultDictionary:
[self versionSpec loader: newLoader.
	MetacelloPlatform current
		useStackCacheDuring: [:dict | ^ self executeLoadFromArray: anArray]
		defaultDictionary: Dictionary new] in [[self versionSpec loader: newLoader.
	MetacelloPlatform current
		useStackCacheDuring: [:dict | ^ self executeLoadFromArray: anArray]
		defaultDictionary: Dictionary new]
		ensure: [self versionSpec loader: originalLoader]] in MetacelloMCVersion>>fetchRequiredFromArray:
BlockClosure>>ensure:
[[self versionSpec loader: newLoader.
	MetacelloPlatform current
		useStackCacheDuring: [:dict | ^ self executeLoadFromArray: anArray]
		defaultDictionary: Dictionary new]
		ensure: [self versionSpec loader: originalLoader]] in MetacelloMCVersion>>fetchRequiredFromArray:
[:bar | 
bar value: 1.
	aBlock value.
	bar value: 2] in MetacelloPharoPlatform>>do:displaying:
[result := workBlock value: progress] in [[result := workBlock value: progress]
		on: ProgressNotification
		do: [:ex | 
			ex extraParam isString
				ifTrue: [SystemProgressMorph uniqueInstance labelAt: progress put: ex extraParam].
			ex resume]] in ProgressInitiationException>>defaultMorphicAction
BlockClosure>>on:do:
[[result := workBlock value: progress]
		on: ProgressNotification
		do: [:ex | 
			ex extraParam isString
				ifTrue: [SystemProgressMorph uniqueInstance labelAt: progress put: ex extraParam].
			ex resume]] in ProgressInitiationException>>defaultMorphicAction
BlockClosure>>ensure:
ProgressInitiationException>>defaultMorphicAction
MorphicUIManager>>progressInitiationExceptionDefaultAction:
ProgressInitiationException>>defaultAction
UndefinedObject>>handleSignal:
MethodContext(ContextPart)>>handleSignal:
MethodContext(ContextPart)>>handleSignal:
MethodContext(ContextPart)>>handleSignal:
MethodContext(ContextPart)>>handleSignal:
MethodContext(ContextPart)>>handleSignal:
ProgressInitiationException(Exception)>>signal
ProgressInitiationException>>display:at:from:to:during:
ProgressInitiationException class>>display:at:from:to:during:
ByteString(String)>>displayProgressAt:from:to:during:
MetacelloPharoPlatform>>do:displaying:
MetacelloMCVersion>>fetchRequiredFromArray:
[:dict | 
| projectCache |
projectCache := dict
				at: self projectClass
				ifAbsent: [dict at: self projectClass put: Dictionary new].
	(projectCache
		at: vrsn
		ifAbsent: [])
		ifNil: [projectCache at: vrsn put: list]
		ifNotNil: [:cachedList | 
			(cachedList size = list size
					and: [cachedList includesAllOf: list])
				ifTrue: [^ self].
			projectCache at: vrsn put: list].
	mcLoader preLoad: self.
	vrsn fetchRequiredFromArray: list.
	mcLoader postLoad: self] in MetacelloMCProjectSpec>>loadVersion:
[^ aBlock value: dict] in MetacelloPharoPlatform(MetacelloPlatform)>>useStackCacheDuring:defaultDictionary:
BlockClosure>>on:do:
MetacelloPharoPlatform(MetacelloPlatform)>>useStackCacheDuring:defaultDictionary:
MetacelloMCProjectSpec>>loadVersion:
MetacelloMCProjectSpec>>load
MetacelloProjectReferenceSpec>>loadUsing:gofer:
[:pkg | pkg loadUsing: self gofer: gofer] in MetacelloFetchingMCSpecLoader(MetacelloCommonMCSpecLoader)>>linearLoadPackageSpecs:repositories:
OrderedCollection>>do:
MetacelloFetchingMCSpecLoader(MetacelloCommonMCSpecLoader)>>linearLoadPackageSpecs:repositories:
[super linearLoadPackageSpecs: packageSpecs repositories: repositories] in MetacelloFetchingMCSpecLoader>>atomicLoadPackageSpecs:repositories:
BlockClosure>>ensure:
MetacelloLoaderPolicy>>pushLoadDirective:during:
MetacelloLoaderPolicy>>pushAtomicLoadDirectivesDuring:for:
MetacelloFetchingMCSpecLoader>>atomicLoadPackageSpecs:repositories:
MetacelloFetchingMCSpecLoader(MetacelloCommonMCSpecLoader)>>load
MetacelloMCVersionSpecLoader>>load
MetacelloMCVersion>>executeLoadFromArray:
[:dict | ^ self executeLoadFromArray: anArray] in [self versionSpec loader: newLoader.
	MetacelloPlatform current
		useStackCacheDuring: [:dict | ^ self executeLoadFromArray: anArray]
		defaultDictionary: Dictionary new] in [[self versionSpec loader: newLoader.
	MetacelloPlatform current
		useStackCacheDuring: [:dict | ^ self executeLoadFromArray: anArray]
		defaultDictionary: Dictionary new]
		ensure: [self versionSpec loader: originalLoader]] in MetacelloMCVersion>>fetchRequiredFromArray:
[^ aBlock value: dict] in MetacelloPharoPlatform(MetacelloPlatform)>>useStackCacheDuring:defaultDictionary:
BlockClosure>>on:do:
MetacelloPharoPlatform(MetacelloPlatform)>>useStackCacheDuring:defaultDictionary:
[self versionSpec loader: newLoader.
	MetacelloPlatform current
		useStackCacheDuring: [:dict | ^ self executeLoadFromArray: anArray]
		defaultDictionary: Dictionary new] in [[self versionSpec loader: newLoader.
	MetacelloPlatform current
		useStackCacheDuring: [:dict | ^ self executeLoadFromArray: anArray]
		defaultDictionary: Dictionary new]
		ensure: [self versionSpec loader: originalLoader]] in MetacelloMCVersion>>fetchRequiredFromArray:
BlockClosure>>ensure:
[[self versionSpec loader: newLoader.
	MetacelloPlatform current
		useStackCacheDuring: [:dict | ^ self executeLoadFromArray: anArray]
		defaultDictionary: Dictionary new]
		ensure: [self versionSpec loader: originalLoader]] in MetacelloMCVersion>>fetchRequiredFromArray:
[:bar | 
bar value: 1.
	aBlock value.
	bar value: 2] in MetacelloPharoPlatform>>do:displaying:
[result := workBlock value: progress] in [[result := workBlock value: progress]
		on: ProgressNotification
		do: [:ex | 
			ex extraParam isString
				ifTrue: [SystemProgressMorph uniqueInstance labelAt: progress put: ex extraParam].
			ex resume]] in ProgressInitiationException>>defaultMorphicAction
BlockClosure>>on:do:
[[result := workBlock value: progress]
		on: ProgressNotification
		do: [:ex | 
			ex extraParam isString
				ifTrue: [SystemProgressMorph uniqueInstance labelAt: progress put: ex extraParam].
			ex resume]] in ProgressInitiationException>>defaultMorphicAction
BlockClosure>>ensure:
ProgressInitiationException>>defaultMorphicAction
MorphicUIManager>>progressInitiationExceptionDefaultAction:
-- and more not shown --