Etoys 4.0 and Monticello

Hi,

I got a "Key not found" error while trying to install Monticello in my Etoys 
squeak-dev-4.0.image (Squeak 4.0-2192). The error also appears in 
squeak-dev-3.0 images. The debug log is attached.

I got stuck in a loop while trying to register a project in Squeaksource using 
Etoys dev image? Etoys dev image does not have Monticello browser. SqueakMap 
Package loader, when opened, reported that its client version is too old and 
I agreed to an update. But the upgrade needed Monticello to be installed. 
During its installation, I got the above error.

Any help is appreciated. TIA .. Subbu

Error: key not found
20 November 2008 6:26:47 pm

VM: unix - a SmalltalkImage
Image: etoys3.0 [latest
update: #2141]

SecurityManager state:
Restricted: false
FileAccess: true
SocketAccess:
true
Working Dir /home/subbukk/squeak
Trusted Dir /home/subbukk/squeak/secure
Untrusted Dir
/home/subbukk/squeak/My Squeak

Dictionary(Object)>>error:
	Receiver: a Dictionary(#id->an
UUID('e222408f-63f9-41af-845e-f81b588caef2') )
	Arguments and temporary variables: 
		aString:
	'key not found'
	Receiver's instance variables: 
		tally: 	1
		array: 	#(#id->an
UUID('e222408f-63f9-41af-845e-f81b588caef2') nil nil nil nil
n...etc...

Dictionary>>errorKeyNotFound
	Receiver: a Dictionary(#id->an
UUID('e222408f-63f9-41af-845e-f81b588caef2') )
	Arguments and temporary variables:


	Receiver's instance variables: 
		tally: 	1
		array: 	#(#id->an
UUID('e222408f-63f9-41af-845e-f81b588caef2') nil nil nil nil n...etc...

[] in Dictionary>>at:
{[self errorKeyNotFound]}
	Arguments and temporary variables: 
		key:
	#name

Dictionary>>at:ifAbsent:
	Receiver: a Dictionary(#id->an
UUID('e222408f-63f9-41af-845e-f81b588caef2') )
	Arguments and temporary variables: 
		key:
	#name
		aBlock: 	[] in Dictionary>>at: {[self errorKeyNotFound]}
		assoc: 	nil
	Receiver's
instance variables: 
		tally: 	1
		array: 	#(#id->an
UUID('e222408f-63f9-41af-845e-f81b588caef2') nil nil nil nil n...etc...


--- The full stack
---
Dictionary(Object)>>error:
Dictionary>>errorKeyNotFound
[] in Dictionary>>at: {[self
errorKeyNotFound]}
Dictionary>>at:ifAbsent:
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
-
Dictionary>>at:
[] in MCWorkingCopy class>>infoFromDictionary:cache: {[MCVersionInfo   name:
(aDictionary at: #name)   id: (aDictionary at: #id) 
...]}
Dictionary>>at:ifAbsentPut:
MCWorkingCopy class>>infoFromDictionary:cache:
[] in
MCWorkingCopy class>>ancestorsFromArray:cache: {[:dict | self infoFromDictionary: dict cache:
aDictionary]}
Array(SequenceableCollection)>>collect:
MCWorkingCopy
class>>ancestorsFromArray:cache:
[] in MCWorkingCopy class>>infoFromDictionary:cache:
{[MCVersionInfo   name: (aDictionary at: #name)   id: (aDictionary at: #id) 
...]}
Dictionary>>at:ifAbsentPut:
MCWorkingCopy class>>infoFromDictionary:cache:
[] in
MCWorkingCopy class>>ancestorsFromArray:cache: {[:dict | self infoFromDictionary: dict cache:
aDictionary]}
Array(SequenceableCollection)>>collect:
MCWorkingCopy
class>>ancestorsFromArray:cache:
[] in MCWorkingCopy class>>infoFromDictionary:cache:
{[MCVersionInfo   name: (aDictionary at: #name)   id: (aDictionary at: #id) 
...]}
Dictionary>>at:ifAbsentPut:
MCWorkingCopy class>>infoFromDictionary:cache:
[] in
MCWorkingCopy class>>adoptVersionInfoFrom: {[:packageName :info | (self   forPackage: (MCPackage
named: packageName))   ...]}
[] in Dictionary>>keysAndValuesDo: {[:assoc | aBlock value: assoc key
value: assoc
value]}
Dictionary(Set)>>do:
Dictionary>>associationsDo:
Dictionary>>keysAndValuesDo:
MCWorkingCopy
class>>adoptVersionInfoFrom:
[] in MCWorkingCopy class>>initialize {[:installer | self
adoptVersionInfoFrom:
installer]}
SystemDictionary(Dictionary)>>at:ifPresent:
MCWorkingCopy
class>>initialize
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
MultiByteBinaryOrTextStream(PositionableStream)>>fileInAnnouncing: {[val := (self peekFor: $!)    
ifTrue: [reader := Compiler evaluate: self ne...]}
BlockContext>>on:do:
[] in
MultiByteBinaryOrTextStream(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:
MethodContext(ContextPart)>>handleSignal:
MethodContext(ContextPart)>>handleSignal:
MethodContext(ContextPart)>>handleSignal:
ProgressInitiationException(Exception)>>signal
ProgressInitiationException>>display:at:from:to:during:
ProgressInitiationException class>>display:at:from:to:during:
ByteString(String)>>displayProgressAt:from:to:during:
MultiByteBinaryOrTextStream(PositionableStream)>>fileInAnnouncing:
...etc...