When I try to move a class-side method to a trait I get this walkback. I 
accepted the default trait name. Is there something different I should do? 
Instance-side works fine.

Thanks - Sophie

===============

VM: Win32 - a SmalltalkImage
Image: Squeak3.9.1 [latest update: #7075]

Metaclass(Object)>>doesNotUnderstand: #category
 Receiver: MPRepository class
 Arguments and temporary variables:
  aMessage:  category
 Receiver's instance variables:
  superclass:  MPNamedElement class
  methodDict:  a MethodDictionary(#allOpenRepos->a CompiledMethod (3013) 
#metaTree...etc...
  format:  158
  instanceVariables:  #('allOpenRepos')
  organization:  ('as yet unclassified' allOpenRepos metaTreeView)

  thisClass:  MPRepository
  traitComposition:  nil
  localSelectors:  nil

OBCmdMoveMethodToTrait>>askForNewTraitFromClass:
 Receiver: an OBCmdMoveMethodToTrait
 Arguments and temporary variables:
  actualClass:  MPRepository class
  traitName:  #'TMPRepository class'
  newTrait:  nil
 Receiver's instance variables:
  target:  OBMethodNode<MPRepository class#metaTreeView>
  requestor:  an OBColumn(metaTreeView)

OBCmdMoveMethodToTrait>>execute
 Receiver: an OBCmdMoveMethodToTrait
 Arguments and temporary variables:
  actualClass:  MPRepository class
  aTrait:  nil
 Receiver's instance variables:
  target:  OBMethodNode<MPRepository class#metaTreeView>
  requestor:  an OBColumn(metaTreeView)

OBCmdMoveMethodToTrait(OBCommand)>>perform:orSendTo:
 Receiver: an OBCmdMoveMethodToTrait
 Arguments and temporary variables:
  aSelector:  #execute
  anObject:  an OBPluggableListMorph(384)
 Receiver's instance variables:
  target:  OBMethodNode<MPRepository class#metaTreeView>
  requestor:  an OBColumn(metaTreeView)


--- The full stack ---
Metaclass(Object)>>doesNotUnderstand: #category
OBCmdMoveMethodToTrait>>askForNewTraitFromClass:
OBCmdMoveMethodToTrait>>execute
OBCmdMoveMethodToTrait(OBCommand)>>perform:orSendTo:
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
[] in MenuItemMorph>>invokeWithEvent: {[(selArgCount := selector numArgs) = 
0   ifTrue: [target perform: selector] ...]}
BlockContext>>ensure:
CursorWithMask(Cursor)>>showWhile:
MenuItemMorph>>invokeWithEvent:
MenuItemMorph>>mouseUp:
MenuItemMorph>>handleMouseUp:
MouseButtonEvent>>sentTo:
MenuItemMorph(Morph)>>handleEvent:
MorphicEventDispatcher>>dispatchDefault:with:
MorphicEventDispatcher>>dispatchEvent:with:
MenuItemMorph(Morph)>>processEvent:using:
MorphicEventDispatcher>>dispatchDefault:with:
MorphicEventDispatcher>>dispatchEvent:with:
MenuMorph(Morph)>>processEvent:using:
MenuMorph(Morph)>>processEvent:
MenuMorph>>handleFocusEvent:
[] in HandMorph>>sendFocusEvent:to:clear: {[ActiveHand := self.  ActiveEvent 
:= anEvent.  result := focusHolder     han...]}
[] in PasteUpMorph>>becomeActiveDuring: {[aBlock value]}
BlockContext>>on:do:
PasteUpMorph>>becomeActiveDuring:
HandMorph>>sendFocusEvent:to:clear:
HandMorph>>sendEvent:focus:clear:
HandMorph>>sendMouseEvent:
HandMorph>>handleEvent:
HandMorph>>processEvents
[] in WorldState>>doOneCycleNowFor: {[:h |  ActiveHand := h.  h 
processEvents.  capturingGesture := capturingGest...]}
Array(SequenceableCollection)>>do:
WorldState>>handsDo:
WorldState>>doOneCycleNowFor:
WorldState>>doOneCycleFor:
PasteUpMorph>>doOneCycle
[] in Project class>>spawnNewProcess {[[World doOneCycle.  Processor yield. 
false] whileFalse.  nil]}
[] in BlockContext>>newProcess {[self value.  Processor terminateActive]}