Hi ned

while trying to harvest your change I got that 

6 January 2004 7:50:55 pm

VM: Mac OS - a SmalltalkImage
Image: Squeak3.7alpha [latest update: #5623]

UndefinedObject(Object)>>doesNotUnderstand: #methodsFor:stamp:
	Receiver: nil
	Arguments and temporary variables: 
		aMessage: 	methodsFor: 'drawing' stamp: 'nk 1/1/2004 21:03'
	Receiver's instance variables: 
nil

UndefinedObject>>DoIt
	Receiver: nil
	Arguments and temporary variables: 

	Receiver's instance variables: 
nil

Compiler>>evaluate:in:to:notifying:ifFail:
	Receiver: a Compiler
	Arguments and temporary variables: 
		textOrStream: 	'IndentingListItemMorphWithIcon methodsFor: ''drawing''
stamp: ''...etc...
		aContext: 	nil
		receiver: 	nil
		aRequestor: 	nil
		failBlock: 	[] in Compiler class>>evaluate:for:notifying:logged: {[^
nil]}
		methodNode: 	DoIt
	^ IndentingListItemMorphWithIcon methodsFor: 'drawing' stamp:...etc...
		method: 	a CompiledMethod (2665)
		value: 	nil
	Receiver's instance variables: 
		sourceStream: 	a ReadStream 'IndentingListItemMorphWithIcon
methodsFor: ''drawin...etc...
		requestor: 	nil
		class: 	UndefinedObject
		context: 	nil
		parserClass: 	Parser
		cacheDoItNode: 	true

Compiler class>>evaluate:for:notifying:logged:
	Receiver: Compiler
	Arguments and temporary variables: 
		textOrString: 	'IndentingListItemMorphWithIcon methodsFor: ''drawing''
stamp: ''...etc...
		anObject: 	nil
		aController: 	nil
		logFlag: 	false
		val: 	nil
	Receiver's instance variables: 
		superclass: 	Object
		methodDict: 	a MethodDictionary(#cacheDoItNode:->a CompiledMethod
(1181) #compil...etc...
		format: 	142
		instanceVariables: 	#('sourceStream' 'requestor' 'class' 'context'
'parserClass'...etc...
		organization: 	('error handling' interactive notify: notify:at:)
('public access...etc...
		subclasses: 	nil
		name: 	#Compiler
		classPool: 	a Dictionary()
		sharedPools: 	nil
		environment: 	a SystemDictionary(lots of globals)
		category: 	nil


--- The full stack ---
UndefinedObject(Object)>>doesNotUnderstand: #methodsFor:stamp:
UndefinedObject>>DoIt
Compiler>>evaluate:in:to:notifying:ifFail:
Compiler class>>evaluate:for:notifying:logged:
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
Compiler class>>evaluate:for:logged:
Compiler class>>evaluate:logged:
[] in StandardFileStream(PositionableStream)>>fileInAnnouncing: {[val :=
(self peekFor: $!)     ifTrue: [(Compiler evaluate: self nextChunk
l...]}
BlockContext>>on:do:
[] in StandardFileStream(PositionableStream)>>fileInAnnouncing: {[:bar |
 [self atEnd]   whileFalse: [bar value: self position.    self
skipS...]}
ProgressInitiationException>>defaultAction
UndefinedObject>>handleSignal:
ProgressInitiationException(Exception)>>signal
ProgressInitiationException>>display:at:from:to:during:
ProgressInitiationException class>>display:at:from:to:during:
String>>displayProgressAt:from:to:during:
StandardFileStream(PositionableStream)>>fileInAnnouncing:
StandardFileStream(FileStream)>>fileIn
FileStream class>>fileIn:
SimpleServiceEntry>>performServiceFor:
PatchArchiveClient>>performAttachmentService:on:
[] 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...]}
PasteUpMorph>>becomeActiveDuring:
HandMorph>>sendFocusEvent:to:clear:
HandMorph>>sendEvent:focus:clear:
HandMorph>>sendMouseEvent:
HandMorph>>handleEvent:
HandMorph>>processEvents
[] in WorldState>>doOneCycleNowFor: {[:h |  ActiveHand := h.  h
processEvents.  h isGenieRecognizing   ifTrue: [r...]}
...etc...