I'm loading a bunch of projects and textual files that I saved in a sar
file. 
I imagine that the SarInstaller is not aware of the removal of Genie. 
Ned may be you could use the FileList registry mechanism. 

Stef

bug here in Sarinstaller>>installAllMembers

	[ CRDictionary fileNameSuffix ] -> [ self fileInGenieDictionaryNamed:
memberName ].


28 March 2004 7:12:06 pm

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

AnObsoleteCRDictionary class(Object)>>doesNotUnderstand: #fileNameSuffix
	Receiver: AnObsoleteCRDictionary
	Arguments and temporary variables: 
		aMessage: 	fileNameSuffix
	Receiver's instance variables: 
		superclass: 	Model
		methodDict: 	a MethodDictionary()
		format: 	156
		instanceVariables: 	#('name' 'dictionary' 'invertedDictionary'
'exportedName' 'p...etc...
		organization: 	nil
		subclasses: 	nil
		name: 	'AnObsoleteCRDictionary'
		classPool: 	nil
		sharedPools: 	nil
		environment: 	a SystemDictionary(lots of globals)
		category: 	nil

[] in SARInstaller>>installAllMembers {[:member |  memberName := member
fileName.  extension := (FileDirectory exte...]}
	Arguments and temporary variables: 
		uninstalled: 	an OrderedCollection()
		member: 	a ZipFileMember(Demo.dem)
		memberName: 	'Demo.dem'
		extension: 	'dem'
		isGraphic: 	nil
		stream: 	nil

OrderedCollection>>do:
	Receiver: an OrderedCollection(a ZipFileMember(SqD-EPOC32.006.pr) a
ZipFileMember(SqD-Digitalizing.007.pr) a ZipFileMember(SqD-Squeak
Central.007.pr) a ZipFileMember(SqD-Dynabook.006.pr) a ...etc...
	Arguments and temporary variables: 
		aBlock: 	[] in SARInstaller>>installAllMembers {[:member |  memberName
:= member fileName.  extension := (FileDirectory exte...]}...etc...
		index: 	8
	Receiver's instance variables: 
		array: 	#(nil nil a ZipFileMember(SqD-EPOC32.006.pr) a
ZipFileMember(SqD-Digitalizing.007.pr) a ZipFileMember(SqD-Squeak
Central.007.pr) a ZipFileMember(SqD-Dynabook.006.pr)...etc...
		firstIndex: 	3
		lastIndex: 	8

SARInstaller>>installAllMembers
	Receiver: a SARInstaller
	Arguments and temporary variables: 
		uninstalled: 	an OrderedCollection()
		member: 	a ZipFileMember(Demo.dem)
		memberName: 	'Demo.dem'
		extension: 	'dem'
		isGraphic: 	nil
		stream: 	nil
	Receiver's instance variables: 
		dependents: 	nil
		zip: 	a ZipArchive
		directory: 	MacHFSPlusFileDirectory on 'Data:Harvesting:squeaklets'
		fileName: 	'Demo3.sar'
		installed: 	an OrderedCollection(a ZipFileMember(SqD-EPOC32.006.pr) a
ZipFileMem...etc...


--- The full stack ---
AnObsoleteCRDictionary class(Object)>>doesNotUnderstand: #fileNameSuffix
[] in SARInstaller>>installAllMembers {[:member |  memberName := member
fileName.  extension := (FileDirectory exte...]}
OrderedCollection>>do:
SARInstaller>>installAllMembers
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
[] in SARInstaller>>fileInFrom: {[stream position: 0.  zip := ZipArchive
new readFrom: stream.  preamble := z...]}
BlockContext>>ensure:
SARInstaller>>fileInFrom:
[] in SARInstaller>>fileIn {[:cs |  newCS := cs.  self fileInFrom:
stream]}
[] in SARInstaller class>>withCurrentChangeSetNamed:do: {[self
newChanges: changeSet.  aOneArgumentBlock value: changeSet]}
BlockContext>>ensure:
SARInstaller class>>withCurrentChangeSetNamed:do:
SARInstaller>>fileIn
[] in SARInstaller class>>installSAR: {[:dir :fileName | (self  
directory: (FileDirectory on: dir)   fileName: fil...]}
FileDirectory class>>splitName:to:
SARInstaller class>>installSAR:
SimpleServiceEntry>>performServiceFor:
PluggableButtonMorph>>performAction
[] in PluggableButtonMorph>>mouseUp: {[:m | (m containsPoint: evt
cursorPoint)   ifTrue: [m performAction]]}
Array(SequenceableCollection)>>do:
PluggableButtonMorph>>mouseUp:
PluggableButtonMorph(Morph)>>handleMouseUp:
MouseButtonEvent>>sentTo:
PluggableButtonMorph(Morph)>>handleEvent:
PluggableButtonMorph(Morph)>>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.  capturingGesture := capturingGest...]}
Array(SequenceableCollection)>>do:
WorldState>>handsDo:
WorldState>>doOneCycleNowFor:
WorldState>>doOneCycleFor:
PasteUpMorph>>doOneCycle
[] in Project class>>spawnNewProcess {[[World doOneCycle.  Processor
yield.  false] whileFalse.  nil]}
...etc...