[BUG]UndefinedObject(Object)>>doesNotUnderstand: #compile:classified:withStamp:notifying:

>
> I am filing in BabySRE packages one at the time from SqueakMap package
> loader,
> Filing in one class at the time works nicely.
>
> (Message send from within Squeak doesn't work for me, I leave that
> problem for some other time.)
>
> 26 October 2007 11:33:36 am
>
> VM: Win32 - a SmalltalkImage
> Image: Squeak3.10beta [latest update: #7158]
>
> SecurityManager state:
> Restricted: false
> FileAccess: true
> SocketAccess: true
> Working Dir D:\Mine dokumenter\09a-BabySqueak\exp-10.1-begin
> Trusted Dir D:\Mine dokumenter\09a-BabySqueak\exp-10.1-begin\Trygve
> Reenskaug
> Untrusted Dir C:\My Squeak\Trygve Reenskaug
>
> UndefinedObject(Object)>>doesNotUnderstand:
> #compile:classified:withStamp:notifying:
>    Receiver: nil
>    Arguments and temporary variables:
>        aMessage:     compile: 'initialize
>    " ACollaboratorToolSRE initialize "
>    TheWorldMe...etc...
>    Receiver's instance variables:
> nil
>
> MCMethodDefinition>>load
>    Receiver: a MCMethodDefinition(ACollaboratorToolSRE
> classSide>>initialize)
>    Arguments and temporary variables:
>
>    Receiver's instance variables:
>        classIsMeta:     true
>        source:     'initialize
>    " ACollaboratorToolSRE initialize "
>    TheWorldMenu register...etc...
>        category:     #'class initialization'
>        selector:     #initialize
>        className:     #ACollaboratorToolSRE
>        timeStamp:     'TRee 12/30/2004 17:39'
>
> [] in MCSnapshotBrowser>>loadCategorySelection {[:m | m load]}
>    Arguments and temporary variables:
>        m:     a MCMethodDefinition(ACollaboratorToolSRE
> classSide>>initialize)
>
> SortedCollection(OrderedCollection)>>do:
>    Receiver: a SortedCollection(a
> MCMethodDefinition(ACollaboratorToolSRE classSide>>initialize) a
> MCMe...etc...
>    Arguments and temporary variables:
>        aBlock:     [] in MCSnapshotBrowser>>loadCategorySelection {[:m
> | m load]}
>        index:     3
>    Receiver's instance variables:
>        array:     an Array(nil nil a
> MCMethodDefinition(ACollaboratorToolSRE classSide>>in...etc...
>        firstIndex:     3
>        lastIndex:     9
>        sortBlock:     nil
>
>
> --- The full stack ---
> UndefinedObject(Object)>>doesNotUnderstand:
> #compile:classified:withStamp:notifying:
> MCMethodDefinition>>load
> [] in MCSnapshotBrowser>>loadCategorySelection {[:m | m load]}
> SortedCollection(OrderedCollection)>>do:
> - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
> MCSnapshotBrowser>>loadCategorySelection
> MCSnapshotBrowser(MCCodeTool)>>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]}
>