Germán Arduino a écrit :
> As neither responded, I'm attaching a .cs that solves the problem.

I can't file-in your .cs. I'm running a 3.9a-7015, opened the 'file
list' tool and try to filein the file. I get the following :

UndefinedObject(Object)>>doesNotUnderstand: #methodsFor:stamp:
	Receiver: nil
	Arguments and temporary variables:
		aMessage: 	methodsFor: 'installation' stamp: 'gsa 3/15/2006 11:20'
	Receiver's instance variables:
nil

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

	Receiver's instance variables:
nil

Compiler>>evaluate:in:to:notifying:ifFail:logged:
	Receiver: a Compiler
	Arguments and temporary variables:
		textOrStream: 	'SMInstallationRegistry methodsFor: ''installation''
stamp: ''gsa...etc...
		aContext: 	nil
		receiver: 	nil
		aRequestor: 	nil
		failBlock: 	[] in Compiler class>>evaluate:for:notifying:logged: {[^ nil]}
		logFlag: 	false
		methodNode: 	DoIt
	^ SMInstallationRegistry methodsFor: 'installation' stamp: 'g...etc...
		method: 	a CompiledMethod (2342)
		value: 	nil
	Receiver's instance variables:
		sourceStream: 	a ReadStream 'SMInstallationRegistry methodsFor:
''installation''...etc...
		requestor: 	nil
		class: 	UndefinedObject
		category: 	nil
		context: 	nil
		parserClass: 	Parser

Compiler class>>evaluate:for:notifying:logged:
	Receiver: Compiler
	Arguments and temporary variables:
		textOrString: 	'SMInstallationRegistry methodsFor: ''installation''
stamp: ''gsa...etc...
		anObject: 	nil
		aController: 	nil
		logFlag: 	false
	Receiver's instance variables:
		superclass: 	Object
		methodDict: 	a
MethodDictionary(#compileNoPattern:in:context:notifying:ifFail:->...etc...
		format: 	142
		traitComposition: 	{}
		localSelectors: 	nil
		instanceVariables: 	#('sourceStream' 'requestor' 'class' 'category'
'context' 'p...etc...
		organization: 	('error handling' notify: notify:at:)
('public access' compile:in...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:logged:
Compiler class>>evaluate:for:notifying:logged:
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
Compiler class>>evaluate:for:logged:
Compiler class>>evaluate:logged:
[] in MultiByteFileStream(PositionableStream)>>fileInAnnouncing: {[val
:= (self peekFor: $!)     ifTrue: [(Compiler evaluate: self nextChunk l...]}
BlockContext>>on:do:
[] in MultiByteFileStream(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:
ProgressInitiationException(Exception)>>signal
ProgressInitiationException>>display:at:from:to:during:
ProgressInitiationException class>>display:at:from:to:during:
ByteString(String)>>displayProgressAt:from:to:during:
MultiByteFileStream(PositionableStream)>>fileInAnnouncing:
MultiByteFileStream(FileStream)>>fileIn
MultiByteFileStream>>fileIn
FileStream class>>fileIn:
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...]}
[] 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...]}
...etc...


-- 
Damien Cassou