Keith Hodges wrote:
>
> For this fix all you have to do is Installer mantis ensureFix: 7244.
>
> I will be updating it shortly, with John's great contributions
>
> Keith
>   
OK, you piqued my interest.  FYI If I start with a
Squeak3.9.1-final-7075 image, install LPF, apply this "fix" and then do:

SmalltalkImage current cleanUpAll

I get the attached walkback.  I haven't investigated it any further.

David


-------------- next part --------------
MessageNotUnderstood: UndefinedObject>>initializeChangeSetCategories
12 February 2009 2:51:29 pm

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

SecurityManager state:
Restricted: false
FileAccess: true
SocketAccess: true
Working Dir /home/shaffer/Source/Squeak/ProfitPortal/builds/6
Trusted Dir /home/shaffer/Source/Squeak/ProfitPortal/builds/6/secure
Untrusted Dir /home/shaffer/Source/Squeak/ProfitPortal/builds/6/My Squeak

UndefinedObject(Object)>>doesNotUnderstand: #initializeChangeSetCategories
	Receiver: nil
	Arguments and temporary variables: 
		aMessage: 	initializeChangeSetCategories
	Receiver's instance variables: 
nil

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

	Receiver's instance variables: 
nil

[] in SmalltalkImage>>cleanUpAllExcept: {[:ea | ea cleanUp]}
	Arguments and temporary variables: 
		aListOfClassNames: 	#()
		exclude: 	a Set()
		ea: 	nil

[] in SystemDictionary(Dictionary)>>do: {[:assoc | aBlock value: assoc value]}
	Arguments and temporary variables: 
		aBlock: 	[] in SmalltalkImage>>cleanUpAllExcept: {[:ea | ea cleanUp]}
		assoc: 	#ActiveEvent->nil


--- The full stack ---
UndefinedObject(Object)>>doesNotUnderstand: #initializeChangeSetCategories
UndefinedObject>>cleanUp
[] in SmalltalkImage>>cleanUpAllExcept: {[:ea | ea cleanUp]}
[] in SystemDictionary(Dictionary)>>do: {[:assoc | aBlock value: assoc value]}
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
SystemDictionary(Set)>>do:
SystemDictionary(Dictionary)>>do:
SystemDictionary(Collection)>>select:thenDo:
SmalltalkImage>>cleanUpAllExcept:
SmalltalkImage>>cleanUpAll
UndefinedObject>>DoIt
Compiler>>evaluate:in:to:notifying:ifFail:logged:
Compiler class>>evaluate:for:notifying:logged:
Compiler class>>evaluate:for:logged:
Compiler class>>evaluate:logged:
[] in RWBinaryOrTextStream(PositionableStream)>>fileInAnnouncing: {[val := (self peekFor: $!)     ifTrue: [(Compiler evaluate: self nextChunk l...]}
BlockContext>>on:do:
[] in RWBinaryOrTextStream(PositionableStream)>>fileInAnnouncing: {[:bar |  [self atEnd]   whileFalse: [bar value: self position.    self skipS...]}
[] in ProgressInitiationException>>defaultMorphicAction {[result := workBlock value: progress]}
BlockContext>>ensure:
ProgressInitiationException>>defaultMorphicAction
ProgressInitiationException>>defaultAction
UndefinedObject>>handleSignal:
ProgressInitiationException(Exception)>>signal
ProgressInitiationException>>display:at:from:to:during:
ProgressInitiationException class>>display:at:from:to:during:
ByteString(String)>>displayProgressAt:from:to:during:
RWBinaryOrTextStream(PositionableStream)>>fileInAnnouncing:
RWBinaryOrTextStream(PositionableStream)>>fileIn
CodeLoader>>installSourceFile:
[] in CodeLoader>>installSourceFiles {[:req | self installSourceFile: req contentStream]}
Array(SequenceableCollection)>>do:
CodeLoader>>installSourceFiles
ProjectLauncher>>startUpAfterLogin
ProjectLauncher>>startUp
[] in AutoStart class>>startUp: {[launcher startUp]}
WorldState>>runStepMethodsIn:
PasteUpMorph>>runStepMethods
WorldState>>doOneCycleNowFor:
WorldState>>doOneCycleFor:
PasteUpMorph>>doOneCycle
[] in Project class>>spawnNewProcess {[[World doOneCycle.  Processor yield.  false] whileFalse.  nil]}
[] in BlockContext>>newProcess {[self value.  Processor terminateActive]}