[squeak-dev] Move method to trait on class-side - problem?

> 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]}
>
>
>
>
>