build sent to nil in SpBindings

[Ducasse]

UndefinedObject(Object)>>doesNotUnderstand: #build
[ 
			  | concreteMenuPresenter |
			  concreteMenuPresenter := menuPresenter value.
			  concreteMenuPresenter isMorph
				  ifTrue: [ concreteMenuPresenter ]
				  ifFalse: [ concreteMenuPresenter build ] ] in SpMorphicListDataSource>>menuColumn:row: in Block: [ ...
[ activeProcess
			psValueAt: index
			put: anObject.
		aBlock value ] in SpBindings(DynamicVariable)>>value:during: in Block: [ activeProcess...
FullBlockClosure(BlockClosure)>>ensure:
SpBindings(DynamicVariable)>>value:during:
SpBindings class(DynamicVariable class)>>value:during:
SpMorphicListDataSource>>menuColumn:row:
SpFTTableMorph(FTTableMorph)>>showMenuForIndex:
SpFTTableMorph(FTTableMorph)>>showMenuForPosition:
SpFTTableMorph(FTTableMorph)>>click:
MouseClickState>>click
MouseClickState>>handleEvent:from:
HandMorph>>handleEvent:
[
		(morphicWorld activeHand isNotNil and: [ anEvent hand isNotNil ]) ifTrue: [
			morphicWorld activeHand handleEvent: anEvent
		]
	] in OSWindowMorphicEventHandler>>dispatchMorphicEvent: in Block: [...
WorldState>>runStepMethodsIn:
WorldMorph>>runStepMethods
WorldState>>doOneCycleFor:
WorldMorph>>doOneCycleNow
WorldMorph>>doOneCycle
[
		| extraWorldsToDraw |
		extraWorldsToDraw := ExtraWorldListMutex critical: [
			                     self extraWorldList ].
		extraWorldsToDraw do: [ :world | world doOneCycle ].

		(self currentWorld isNotNil and: [
			 (extraWorldsToDraw includes: self currentWorld) not ]) ifTrue: [
			self currentWorld doOneCycle ] ] in WorldMorph class>>doOneCycle in Block: [...
FullBlockClosure(BlockClosure)>>ensure:
WorldState class>>doDrawCycleWith:
WorldMorph class>>doOneCycle
MorphicRenderLoop>>doOneCycle
MorphicRenderLoop>>doOneCycleWhile:
[ MorphicRenderLoop new doOneCycleWhile: [ true ] ] in MorphicUIManager>>spawnNewProcess in Block: [ MorphicRenderLoop new doOneCycleWhile: [ tru[..]
[self value.
			"IMPORTANT: Do not step over next line of code. See method comments for details"
			Processor terminateRealActive] in FullBlockClosure(BlockClosure)>>newProcess in Block: [self value....

How to reproduce

• open the ExpressionFinder
• type Smalltalk tools toolNamed:
• on the result list click on the item and try to get a menu