store error caused by installing Jun and using its font system

It seems loading Jun into image and use Jun fonts will cause error in store ui.  Unhandled exception: Message not understood: #defaultFontPolicy.

Here is the stack: 

Unhandled exception: Message not understood: #defaultFontPolicy
TextAttributes(Object)>>doesNotUnderstand:
MultiSelectionSequenceView>>fontForEmphasis:
Store.Glorp.PundleVersionPane>>calculateAppropriateColumnLengthFor:emphasis:columnTextBlock:
Store.Glorp.PundleVersionPane>>calculateColumnWidthsFor:basedOn:
optimized [] in Store.Glorp.PublishedPundleVersionsTool>>pundleSelectionChanged
optimized [] in Store.StoreProgressOverlay class>>subsumeAll:while:
BlockClosure>>ensure:
Store.StoreProgressOverlay class>>subsumeAll:while:
Store.StoreProgressOverlay class>>subsume:while:
BlockClosure>>withStoreFeedbackOn:
Store.Glorp.PublishedPundleVersionsTool>>pundleSelectionChanged
DependencyTransformer>>update:with:from:
DependentsCollection>>update:with:from:
ValueHolder(Object)>>changed:with:
ValueHolder(Object)>>changed:
ValueHolder(ValueModel)>>value:
MultiSelectionSequenceView>>useSingleSelectionIndex:
EmulatedSequenceController>>toggleAt:withEvent:
EmulatedSequenceController>>toggleTargetWithEvent:
EmulatedSequenceController>>selectUpAt:withEvent:
EmulatedSequenceTracker>>finishSelectionForEvent:
EmulatedSequenceTracker>>redButtonReleasedEvent:
RedButtonReleasedEvent>>dispatchTo:
EmulatedSequenceTracker(SelectionTracker)>>handleEvent:
EventDispatcher>>dispatch:to:
[] in EventDispatcher>>dispatchEvent:
BlockClosure>>on:do:
EventDispatcher>>dispatchEvent:
RedButtonReleasedEvent(Event)>>dispatch
RedButtonReleasedEvent(Event)>>dispatchForWindowManager:
optimized [] in WindowManager>>safelyDispatchForWindowManager:
BlockClosure>>on:do:
WindowManager>>safelyDispatchForWindowManager:
WindowManager>>processNextEvent
optimized [] in [] in WindowManager>>newProcess
BlockClosure>>on:do:
optimized [] in WindowManager>>newProcess
BlockClosure>>on:do:
optimized [] in Process class>>forBlock:priority:

----------------------------------------------------------------------
TextAttributes(Object)>>doesNotUnderstand:
Receiver:
a TextAttributes
Instance Variables:
lineGrid = BlockClosure [] in TextAttributes>>gridForFont:withTopLead:bottomLead:
baseline = BlockClosure [] in TextAttributes>>gridForFont:withTopLead:bottomLead:
alignment = 0
firstIndent = 0
restIndent = 0
rightIndent = 0
tabsArray = an Interval[41]
equalTabs = 24
characterAttributes = a CharacterAttributes
tabsArePositions = false
Arguments:
aMessage = a Message with selector: #defaultFontPolicy and arguments: #()
Temporaries:
excpt = a MessageNotUnderstood
resumeValue = nil
Context PC = 25

----------------------------------------------------------------------
MultiSelectionSequenceView>>fontForEmphasis:
Receiver:
a MultiSelectionSequenceView
Instance Variables:
container = a ScrollWrapper on: a MultiSelectionSequenceView
eventHandlers = nil
properties = nil
model = a ValueHolder on: #()
controller = an EmulatedSequenceController
state = a WidgetState
scrollOffset = a ScrollValueHolder
sequence = an Array[0]
selectionChannel = a ValueHolder on: OrderedCollection ()
selectionIndex = 0
targetIndex = 0
grid = BlockClosure [] in SequenceView>>initializeGrid
textStyle = nil
displayStringSelector = nil
visualBlock = BlockClosure [] in Store.Glorp.PundleVersionPane>>setUpListViewWith:
selectedVisualBlock = BlockClosure [] in Store.Glorp.PundleVersionPane>>setUpListViewWith:
measureWidth = true
cachedWidth = 0
selections = an OrderedCollection[0]
lastSelectionIndex = 0
Arguments:
emphasisSymbol = #bold
Context PC = 12

----------------------------------------------------------------------
Store.Glorp.PundleVersionPane>>calculateAppropriateColumnLengthFor:emphasis:columnTextBlock:
Receiver:
a Store.Glorp.PundleVersionPane
Instance Variables:
dependents = nil
builder = an UIBuilder
uiSession = nil
eventHandlers = nil
itemsInList = a MultiSelectionInList
tool = a Store.Glorp.PublishedPundleVersionsTool
title = 'Published Items on mystore28'
listFilterBlock = nil
imageVersions = a Dictionary[1]
publishedFormatDescriptions = a Dictionary[2]
Arguments:
aCollection = a List[26]
emphasisSymbol = #bold
aTextBlock = BlockClosure [] in Store.Glorp.PundleVersionPane>>calculateColumnWidthsFor:basedOn:
Temporaries:
string = nil
selectedFont = nil
textMeasurer = nil
count = nil
widthCollection = nil
sum = nil
mean = nil
sumSq = nil
stdDev = nil
width = nil
widget = a MultiSelectionSequenceView
Context PC = 29

----------------------------------------------------------------------
Store.Glorp.PundleVersionPane>>calculateColumnWidthsFor:basedOn:
Receiver:
a Store.Glorp.PundleVersionPane
Instance Variables:
dependents = nil
builder = an UIBuilder
uiSession = nil
eventHandlers = nil
itemsInList = a MultiSelectionInList
tool = a Store.Glorp.PublishedPundleVersionsTool
title = 'Published Items on mystore28'
listFilterBlock = nil
imageVersions = a Dictionary[1]
publishedFormatDescriptions = a Dictionary[2]
Arguments:
items = a List[27]
selections = an OrderedCollection[1]
Temporaries:
columnWidths = a Dictionary[0]
blessings = nil
versions = a List[26]
Context PC = 37

----------------------------------------------------------------------
optimized [] in Store.Glorp.PublishedPundleVersionsTool>>pundleSelectionChanged
Receiver:
an UndefinedObject
Temporaries:
.self = a Store.Glorp.PublishedPundleVersionsTool
.selections = an OrderedCollection[1]
versions = a List[27]
columnWidths = nil
Context PC = 15

----------------------------------------------------------------------
optimized [] in Store.StoreProgressOverlay class>>subsumeAll:while:
Receiver:
an UndefinedObject
Temporaries:
.windowsToSubsume = an Array[1]
.self = Store.StoreProgressOverlay
overlays = an Array[1]
.aBlock = BlockClosure [] in Store.Glorp.PublishedPundleVersionsTool>>pundleSelectionChanged
Context PC = 14

----------------------------------------------------------------------
BlockClosure>>ensure:
Receiver:
a BlockClosure
Instance Variables:
method = CompiledBlock [] in Store.StoreProgressOverlay class>>subsumeAll:while:
outerContext = nil
copiedValues = an Array[4]
Arguments:
aBlock = BlockClosure [] in Store.StoreProgressOverlay class>>subsumeAll:while:
Temporaries:
result = nil
Context PC = 4

----------------------------------------------------------------------
Store.StoreProgressOverlay class>>subsumeAll:while:
Receiver:
a Store.StoreProgressOverlay class
Instance Variables:
superclass = Panel
methodDict = a MethodDictionary[12]
format = 16394
subclasses = nil
instanceVariables = an Array[3]
organization = ('initialize-release' #addProgressView #initializeLayoutAlgorithm #restoreOriginal #subsume:)
('private' #backdrop #dropdownGradient #dropdownRectangle #progressView #regularView #washOutBackdropImage)
('displaying' #displayChild:on: #displayDropdownOn:)

name = #StoreProgressOverlay
classPool = a NameSpaceOfClass[0]
environment = a NameSpace[284]
Arguments:
aWindowCollection = an Array[1]
aBlock = BlockClosure [] in Store.Glorp.PublishedPundleVersionsTool>>pundleSelectionChanged
Temporaries:
overlays = an Array[1]
windowsToSubsume = an Array[1]
Context PC = 22

----------------------------------------------------------------------
Store.StoreProgressOverlay class>>subsume:while:
Receiver:
a Store.StoreProgressOverlay class
Instance Variables:
superclass = Panel
methodDict = a MethodDictionary[12]
format = 16394
subclasses = nil
instanceVariables = an Array[3]
organization = ('initialize-release' #addProgressView #initializeLayoutAlgorithm #restoreOriginal #subsume:)
('private' #backdrop #dropdownGradient #dropdownRectangle #progressView #regularView #washOutBackdropImage)
('displaying' #displayChild:on: #displayDropdownOn:)

name = #StoreProgressOverlay
classPool = a NameSpaceOfClass[0]
environment = a NameSpace[284]
Arguments:
aWindowOrNil = a ScheduledWindow 96
aBlock = BlockClosure [] in Store.Glorp.PublishedPundleVersionsTool>>pundleSelectionChanged
Context PC = 9

----------------------------------------------------------------------
BlockClosure>>withStoreFeedbackOn:
Receiver:
a BlockClosure
Instance Variables:
method = CompiledBlock [] in Store.Glorp.PublishedPundleVersionsTool>>pundleSelectionChanged
outerContext = nil
copiedValues = an Array[3]
Arguments:
aWindow = a ScheduledWindow 96
Context PC = 5

----------------------------------------------------------------------
Store.Glorp.PublishedPundleVersionsTool>>pundleSelectionChanged
Receiver:
a Store.Glorp.PublishedPundleVersionsTool
Instance Variables:
dependents = a ScheduledWindow 96
builder = an UIBuilder
uiSession = a ControlManager
eventHandlers = nil
definition = a ValueHolder on: Text for ''
listPart = a Store.Glorp.PundleVersionPane
status = nil
listBlock = BlockClosure [] in Store.Glorp.PublishedPundleVersionsTool class>>openOnAllPublishedPundles
searchModule = an IncrementalSearchModule
cachedPundles = a List[30]
titleBlock = BlockClosure [] in Store.Glorp.PublishedPundleVersionsTool class>>openOnAllPublishedPundles
Temporaries:
selections = an OrderedCollection[1]
versions = a List[27]
columnWidths = nil
Context PC = 35

----------------------------------------------------------------------
DependencyTransformer>>update:with:from:
Receiver:
a DependencyTransformer
Instance Variables:
receiver = a Store.Glorp.PublishedPundleVersionsTool
selector = #pundleSelectionChanged
numArguments = 0
aspect = #value
suspended = false
Arguments:
anAspect = #value
parameters = nil
anObject = a ValueHolder on: OrderedCollection (2)
Context PC = 20

----------------------------------------------------------------------
DependentsCollection>>update:with:from:
Receiver:
a DependentsCollection
Arguments:
anAspect = #value
aParameter = nil
anObject = a ValueHolder on: OrderedCollection (2)
Temporaries:
i = 2
Context PC = 22

----------------------------------------------------------------------
ValueHolder(Object)>>changed:with:
Receiver:
a ValueHolder
Instance Variables:
dependents = a DependentsCollection[3]
value = an OrderedCollection[1]
Arguments:
anAspectSymbol = #value
aParameter = nil
Context PC = 7

----------------------------------------------------------------------
ValueHolder(Object)>>changed:
Receiver:
a ValueHolder
Instance Variables:
dependents = a DependentsCollection[3]
value = an OrderedCollection[1]
Arguments:
anAspectSymbol = #value
Context PC = 6

----------------------------------------------------------------------
ValueHolder(ValueModel)>>value:
Receiver:
a ValueHolder
Instance Variables:
dependents = a DependentsCollection[3]
value = an OrderedCollection[1]
Arguments:
newValue = an OrderedCollection[1]
Context PC = 9

----------------------------------------------------------------------
MultiSelectionSequenceView>>useSingleSelectionIndex:
Receiver:
a MultiSelectionSequenceView
Instance Variables:
container = a ScrollWrapper on: a MultiSelectionSequenceView
eventHandlers = nil
properties = nil
model = a ValueHolder on: List (a ListItemHolder a ListItemHolder a ListItemHolder a ListItemHolder a ListItemHolder a ListItemHolder a ListItemHolder a ListItemHolder a ListItemHolder a ListItemHolder a ListItemHolder a ListItemHolder a ListItemHolder a ListItemHolder a ListItemHolder a ListItemHolder a ListItemHolder a ListItemHolder a ListItemHolder a ListItemHolder a ListItemHolder a ListItemHolder a ListItemHolder a ListItemHolder a ListItemHolder a ListItemHolder a ListItemHolder a ListItemHolder a ListItemHolder a ListItemHolder)
controller = an EmulatedSequenceController
state = a WidgetState
scrollOffset = a ScrollValueHolder
sequence = a List[30]
selectionChannel = a ValueHolder on: OrderedCollection (2)
selectionIndex = 0
targetIndex = 2
grid = BlockClosure [] in SequenceView>>initializeGrid
textStyle = nil
displayStringSelector = nil
visualBlock = BlockClosure [] in ListSelectionModule>>visualBlockUsing:
selectedVisualBlock = BlockClosure [] in ListSelectionModule>>selectedVisualBlockUsing:
measureWidth = true
cachedWidth = 158
selections = an OrderedCollection[1]
lastSelectionIndex = 2
Arguments:
anIndex = 2
Temporaries:
wasSelected = false
Context PC = 69

----------------------------------------------------------------------
EmulatedSequenceController>>toggleAt:withEvent:
Receiver:
an EmulatedSequenceController
Instance Variables:
model = a ValueHolder on: List (a ListItemHolder a ListItemHolder a ListItemHolder a ListItemHolder a ListItemHolder a ListItemHolder a ListItemHolder a ListItemHolder a ListItemHolder a ListItemHolder a ListItemHolder a ListItemHolder a ListItemHolder a ListItemHolder a ListItemHolder a ListItemHolder a ListItemHolder a ListItemHolder a ListItemHolder a ListItemHolder a ListItemHolder a ListItemHolder a ListItemHolder a ListItemHolder a ListItemHolder a ListItemHolder a ListItemHolder a ListItemHolder a ListItemHolder a ListItemHolder)
view = a MultiSelectionSequenceView
sensor = a TranslatingSensor
menuHolder = BlockClosure [] in Store.Glorp.PublishedPundleVersionsTool>>setupSearcher
performer = a Store.Glorp.PublishedPundleVersionsTool
outside = false
searchString = nil
keyboardHook = nil
doStringSearching = true
dispatcher = an UIDispatcher
dragDropCallbacks = nil
selectOnDownWithDrag = false
autoSelect = true
useModifierKeys = true
Arguments:
anIndex = 2
anEvent = a RedButtonReleasedEvent
Context PC = 20

----------------------------------------------------------------------
EmulatedSequenceController>>toggleTargetWithEvent:
Receiver:
an EmulatedSequenceController
Instance Variables:
model = a ValueHolder on: List (a ListItemHolder a ListItemHolder a ListItemHolder a ListItemHolder a ListItemHolder a ListItemHolder a ListItemHolder a ListItemHolder a ListItemHolder a ListItemHolder a ListItemHolder a ListItemHolder a ListItemHolder a ListItemHolder a ListItemHolder a ListItemHolder a ListItemHolder a ListItemHolder a ListItemHolder a ListItemHolder a ListItemHolder a ListItemHolder a ListItemHolder a ListItemHolder a ListItemHolder a ListItemHolder a ListItemHolder a ListItemHolder a ListItemHolder a ListItemHolder)
view = a MultiSelectionSequenceView
sensor = a TranslatingSensor
menuHolder = BlockClosure [] in Store.Glorp.PublishedPundleVersionsTool>>setupSearcher
performer = a Store.Glorp.PublishedPundleVersionsTool
outside = false
searchString = nil
keyboardHook = nil
doStringSearching = true
dispatcher = an UIDispatcher
dragDropCallbacks = nil
selectOnDownWithDrag = false
autoSelect = true
useModifierKeys = true
Arguments:
event = a RedButtonReleasedEvent
Temporaries:
index = 2
Context PC = 22

----------------------------------------------------------------------
EmulatedSequenceController>>selectUpAt:withEvent:
Receiver:
an EmulatedSequenceController
Instance Variables:
model = a ValueHolder on: List (a ListItemHolder a ListItemHolder a ListItemHolder a ListItemHolder a ListItemHolder a ListItemHolder a ListItemHolder a ListItemHolder a ListItemHolder a ListItemHolder a ListItemHolder a ListItemHolder a ListItemHolder a ListItemHolder a ListItemHolder a ListItemHolder a ListItemHolder a ListItemHolder a ListItemHolder a ListItemHolder a ListItemHolder a ListItemHolder a ListItemHolder a ListItemHolder a ListItemHolder a ListItemHolder a ListItemHolder a ListItemHolder a ListItemHolder a ListItemHolder)
view = a MultiSelectionSequenceView
sensor = a TranslatingSensor
menuHolder = BlockClosure [] in Store.Glorp.PublishedPundleVersionsTool>>setupSearcher
performer = a Store.Glorp.PublishedPundleVersionsTool
outside = false
searchString = nil
keyboardHook = nil
doStringSearching = true
dispatcher = an UIDispatcher
dragDropCallbacks = nil
selectOnDownWithDrag = false
autoSelect = true
useModifierKeys = true
Arguments:
aPoint = 249 @ 25
event = a RedButtonReleasedEvent
Context PC = 8

----------------------------------------------------------------------
EmulatedSequenceTracker>>finishSelectionForEvent:
Receiver:
an EmulatedSequenceTracker
Instance Variables:
controller = an EmulatedSequenceController
process = nil
wantsToDrag = false
selectionDone = false
startEvent = a RedButtonPressedEvent
Arguments:
aMouseButtonEvent = a RedButtonReleasedEvent
Temporaries:
currentPoint = 249 @ 25
Context PC = 22

----------------------------------------------------------------------
EmulatedSequenceTracker>>redButtonReleasedEvent:
Receiver:
an EmulatedSequenceTracker
Instance Variables:
controller = an EmulatedSequenceController
process = nil
wantsToDrag = false
selectionDone = false
startEvent = a RedButtonPressedEvent
Arguments:
aMouseButtonEvent = a RedButtonReleasedEvent
Context PC = 10

----------------------------------------------------------------------
RedButtonReleasedEvent>>dispatchTo:
Receiver:
a RedButtonReleasedEvent
Instance Variables:
time = 7410109
initiator = an EventDispatcher
window = a ScheduledWindow 96
state = 0
x = 252
y = 99
gx = 577
gy = 359
buttonNumber = 1
Arguments:
anObject = an EmulatedSequenceTracker
Context PC = 4

----------------------------------------------------------------------
EmulatedSequenceTracker(SelectionTracker)>>handleEvent:
Receiver:
an EmulatedSequenceTracker
Instance Variables:
controller = an EmulatedSequenceController
process = nil
wantsToDrag = false
selectionDone = false
startEvent = a RedButtonPressedEvent
Arguments:
anEvent = a RedButtonReleasedEvent
Context PC = 4

----------------------------------------------------------------------
EventDispatcher>>dispatch:to:
Receiver:
an EventDispatcher
Instance Variables:
windowController = an ApplicationStandardSystemController
currentMouseConsumer = nil
grabbingMouse = false
lastControlObject = nil
trapList = nil
state = nil
repairDamageWhenDebugging = true
flushQueueAfterError = true
distributeEventsWhenDebugging = true
dragDropInProgress = false
dragDropTracker = nil
dispatchUnknownEvents = false
Arguments:
event = a RedButtonReleasedEvent
object = an EmulatedSequenceTracker
Temporaries:
tmp = nil
Context PC = 10

----------------------------------------------------------------------
[] in EventDispatcher>>dispatchEvent:
Receiver:
an EventDispatcher
Instance Variables:
windowController = an ApplicationStandardSystemController
currentMouseConsumer = nil
grabbingMouse = false
lastControlObject = nil
trapList = nil
state = nil
repairDamageWhenDebugging = true
flushQueueAfterError = true
distributeEventsWhenDebugging = true
dragDropInProgress = false
dragDropTracker = nil
dispatchUnknownEvents = false
Temporaries:
.self = an EventDispatcher
.event = a RedButtonReleasedEvent
Context PC = 9

----------------------------------------------------------------------
BlockClosure>>on:do:
Receiver:
a BlockClosure
Instance Variables:
method = CompiledBlock [] in EventDispatcher>>dispatchEvent:
outerContext = EventDispatcher>>dispatchEvent:
copiedValues = an Array[2]
Arguments:
anExceptionSelector = ClosedWindowNotification
handlerBlock = BlockClosure [] in EventDispatcher>>dispatchEvent:
Context PC = 18

----------------------------------------------------------------------
EventDispatcher>>dispatchEvent:
Receiver:
an EventDispatcher
Instance Variables:
windowController = an ApplicationStandardSystemController
currentMouseConsumer = nil
grabbingMouse = false
lastControlObject = nil
trapList = nil
state = nil
repairDamageWhenDebugging = true
flushQueueAfterError = true
distributeEventsWhenDebugging = true
dragDropInProgress = false
dragDropTracker = nil
dispatchUnknownEvents = false
Arguments:
event = a RedButtonReleasedEvent
Temporaries:
objectWantingControl = nil
targetKeyboardProcessor = nil
Context PC = 68

----------------------------------------------------------------------
RedButtonReleasedEvent(Event)>>dispatch
Receiver:
a RedButtonReleasedEvent
Instance Variables:
time = 7410109
initiator = an EventDispatcher
window = a ScheduledWindow 96
state = 0
x = 252
y = 99
gx = 577
gy = 359
buttonNumber = 1
Context PC = 16

----------------------------------------------------------------------
RedButtonReleasedEvent(Event)>>dispatchForWindowManager:
Receiver:
a RedButtonReleasedEvent
Instance Variables:
time = 7410109
initiator = an EventDispatcher
window = a ScheduledWindow 96
state = 0
x = 252
y = 99
gx = 577
gy = 359
buttonNumber = 1
Arguments:
aWinMgr = a WindowManager
Context PC = 4

----------------------------------------------------------------------
optimized [] in WindowManager>>safelyDispatchForWindowManager:
Receiver:
an UndefinedObject
Temporaries:
.event = a RedButtonReleasedEvent
.self = a WindowManager
Context PC = 6

----------------------------------------------------------------------
BlockClosure>>on:do:
Receiver:
a BlockClosure
Instance Variables:
method = CompiledBlock [] in WindowManager>>safelyDispatchForWindowManager:
outerContext = nil
copiedValues = an Array[2]
Arguments:
anExceptionSelector = BadControllerError
handlerBlock = BlockClosure [] in WindowManager>>safelyDispatchForWindowManager:
Context PC = 18

----------------------------------------------------------------------
WindowManager>>safelyDispatchForWindowManager:
Receiver:
a WindowManager
Instance Variables:
windows = an OrderedCollection[1]
activeController = nil
interruptLock = false
outstandingMetaOrDamage = false
openInProgress = false
eventQueue = an EventQueue
baseProcess = a Process in Semaphore>>waitIfCurtailedSignal
dontFilterEvents = false
Arguments:
event = a RedButtonReleasedEvent
Context PC = 13

----------------------------------------------------------------------
WindowManager>>processNextEvent
Receiver:
a WindowManager
Instance Variables:
windows = an OrderedCollection[1]
activeController = nil
interruptLock = false
outstandingMetaOrDamage = false
openInProgress = false
eventQueue = an EventQueue
baseProcess = a Process in Semaphore>>waitIfCurtailedSignal
dontFilterEvents = false
Temporaries:
event = a RedButtonReleasedEvent
Context PC = 9

----------------------------------------------------------------------
optimized [] in [] in WindowManager>>newProcess
Receiver:
an UndefinedObject
Temporaries:
.self = a WindowManager
Context PC = 13

----------------------------------------------------------------------
BlockClosure>>on:do:
Receiver:
a BlockClosure
Instance Variables:
method = CompiledBlock [] in [] in WindowManager>>newProcess
outerContext = nil
copiedValues = a WindowManager
Arguments:
anExceptionSelector = TerminateException
handlerBlock = BlockClosure [] in [] in WindowManager>>newProcess
Context PC = 18

----------------------------------------------------------------------
optimized [] in WindowManager>>newProcess
Receiver:
an UndefinedObject
Temporaries:
.self = a WindowManager
Context PC = 15

----------------------------------------------------------------------
BlockClosure>>on:do:
Receiver:
a BlockClosure
Instance Variables:
method = CompiledBlock [] in WindowManager>>newProcess
outerContext = nil
copiedValues = a WindowManager
Arguments:
anExceptionSelector = TerminateException
handlerBlock = BlockClosure [] in [] in Process class>>forBlock:priority:
Context PC = 18

----------------------------------------------------------------------
optimized [] in Process class>>forBlock:priority:
Receiver:
an UndefinedObject
Temporaries:
.aBlock = BlockClosure [] in WindowManager>>newProcess
Context PC = 9