While filein Enhanced IRC. Also happend if I try to load it in SM2.
Works in 3.6

2 February 2004 11:33:03 am

VM: Win32 - a SmalltalkImage
Image: Squeak3.7alpha [latest update: #5657]

UndefinedObject(Object)>>doesNotUnderstand: #methodsFor:stamp:
	Receiver: nil
	Arguments and temporary variables: 
		aMessage: 	methodsFor: 'access' stamp: 'sbw 1/11/2003 08:41'
	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: 	'IRCChannelInfo methodsFor: ''access'' stamp: ''sbw
1/11/2003 08:...etc...
		aContext: 	nil
		receiver: 	nil
		aRequestor: 	nil
		failBlock: 	[] in Compiler class>>evaluate:for:notifying:logged: {[^
nil]}
		methodNode: 	DoIt
	^ IRCChannelInfo methodsFor: 'access' stamp: 'sbw 1/11/2003 0...etc...
		method: 	a CompiledMethod (1271)
		value: 	nil
	Receiver's instance variables: 
		sourceStream: 	a ReadStream 'IRCChannelInfo methodsFor: ''access''
stamp: ''sbw ...etc...
		requestor: 	nil
		class: 	UndefinedObject
		context: 	nil
		parserClass: 	Parser
		cacheDoItNode: 	true

Compiler class>>evaluate:for:notifying:logged:
	Receiver: Compiler
	Arguments and temporary variables: 
		textOrString: 	'IRCChannelInfo methodsFor: ''access'' stamp: ''sbw
1/11/2003 08:...etc...
		anObject: 	nil
		aController: 	nil
		logFlag: 	false
		val: 	nil
	Receiver's instance variables: 
		superclass: 	Object
		methodDict: 	a MethodDictionary(#cacheDoItNode:->a CompiledMethod
(833) #compile...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:
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.  h isGenieRecognizing   ifTrue: [r...]}
Array(SequenceableCollection)>>do:
WorldState>>handsDo:
WorldState>>doOneCycleNowFor:
WorldState>>doOneCycleFor:
PasteUpMorph>>doOneCycle
[] in Project class>>spawnNewProcess {[[World doOneCycle.  Processor
yield.  false] whileFalse.  nil]}
[] in BlockContext>>newProcess {[self value.  Processor
terminateActive]}