refreshTags is raising DNU

[Ducasse]

Adding tag in pharo is much simpler than using github.
Now as post creation action we get an error

execute

	(IceTipCreateTagPanel 
		newApplication: context application 
		model: self item) 		
		asDialogWindow
			okAction: [ self context refreshTags ];
			centeredRelativeTo: context window;
			open

IceTipRepositoryGroupPanel did not understand #refreshTags

IceTipRepositoryGroupPanel(Object)>>doesNotUnderstand: #refreshTags
[ self context refreshTags ] in IceTipCreateTagCommand>>execute in Block: [ self context refreshTags ]
FullBlockClosure(BlockClosure)>>cull:
SpDialogWindowPresenter>>triggerOkAction
[ 
				presenter triggerOkAction.
				presenter close ] in [ :presenter | 
			self acceptThen: [ 
				presenter triggerOkAction.
				presenter close ] ] in IceTipCreateTagPanel>>initializeDialogWindow: in Block: [ ...
IceTipCreateTagPanel>>acceptThen:
[ :presenter | 
			self acceptThen: [ 
				presenter triggerOkAction.
				presenter close ] ] in IceTipCreateTagPanel>>initializeDialogWindow: in Block: [ :presenter | ...
FullBlockClosure(BlockClosure)>>cull:
[ aBlock cull: self ] in SpDialogWindowPresenter>>addButton:do: in Block: [ aBlock cull: self ]
SpButtonPresenter>>performAction
SpMorphicButtonAdapter>>action
SpPluggableButtonMorph(PluggableButtonMorph)>>performAction:
[:m |
		(m containsPoint: evt cursorPoint) ifTrue: [m enabled ifTrue: [ m performAction: evt ]]] in SpPluggableButtonMorph(PluggableButtonMorph)>>mouseUp: in Block: [:m |...
Array(SequenceableCollection)>>do:
SpPluggableButtonMorph(PluggableButtonMorph)>>mouseUp:
SpPluggableButtonMorph(Morph)>>handleMouseUp:
MouseButtonEvent>>sentTo:
SpPluggableButtonMorph(Morph)>>handleEvent:
SpPluggableButtonMorph(Morph)>>handleFocusEvent:
[
		result := focusHolder handleFocusEvent: transformedEvent.
	] in HandMorph>>sendFocusEvent:to:clear: in Block: [...
FullBlockClosure(BlockClosure)>>on:do:
WorldMorph>>becomeActiveDuring:
HandMorph>>sendFocusEvent:to:clear:
HandMorph>>sendEvent:focus:clear:
HandMorph>>sendMouseEvent:
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....