Sending mail from Celeste gave me this error.

8 September 2004 1:16:03 pm

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

SecurityManager state:
Restricted: false
FileAccess: true
SocketAccess: true
Working Dir Video:Squeak3.8a-5976 Folder.1
Trusted Dir Video:Squeak3.8a-5976 Folder.1
Untrusted Dir HD:Systemmapp:Programinställningar:Squeak:Internet:My
Squeak

[] in SMTPClient(ProtocolClient)>>checkResponse {[:response |
(TelnetProtocolError protocolInstance: self) signal]}
	Arguments and temporary variables: 
		response: 	'503 Bad sequence of commands (specify EHLO or HELO first)'

SMTPClient(ProtocolClient)>>checkResponse:onError:onWarning:
	Receiver: a SMTPClient
	Arguments and temporary variables: 
		aResponse: 	'503 Bad sequence of commands (specify EHLO or HELO
first)'
		errorBlock: 	[] in SMTPClient(ProtocolClient)>>checkResponse
{[:response | (Teln...etc...
		warningBlock: 	[] in SMTPClient(ProtocolClient)>>checkResponse
{[:response | (Te...etc...
	Receiver's instance variables: 
		stream: 	<<error during printing>>

SMTPClient(ProtocolClient)>>checkResponseOnError:onWarning:
	Receiver: a SMTPClient
	Arguments and temporary variables: 
		errorBlock: 	[] in SMTPClient(ProtocolClient)>>checkResponse
{[:response | (Teln...etc...
		warningBlock: 	[] in SMTPClient(ProtocolClient)>>checkResponse
{[:response | (Te...etc...
	Receiver's instance variables: 
		stream: 	<<error during printing>>

SMTPClient(ProtocolClient)>>checkResponse
	Receiver: a SMTPClient
	Arguments and temporary variables: 
		response: 	'503 Bad sequence of commands (specify EHLO or HELO first)'
	Receiver's instance variables: 
		stream: 	<<error during printing>>


--- The full stack ---
[] in SMTPClient(ProtocolClient)>>checkResponse {[:response |
(TelnetProtocolError protocolInstance: self) signal]}
SMTPClient(ProtocolClient)>>checkResponse:onError:onWarning:
SMTPClient(ProtocolClient)>>checkResponseOnError:onWarning:
SMTPClient(ProtocolClient)>>checkResponse
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
SMTPClient>>mailFrom:
SMTPClient>>mailFrom:to:text:
[] in ScaffoldingCeleste(Celeste)>>sendMail: {[:id |  progressBar value:
(n := n + 1).  message := mailDB getMessage: id. ...]}
Array(SequenceableCollection)>>do:
[] in ScaffoldingCeleste(Celeste)>>sendMail: {[:progressBar |  n := 0. 
aCollectionOfMessages   do: [:id |     progressBar...]}
ProgressInitiationException>>defaultAction
UndefinedObject>>handleSignal:
MethodContext(ContextPart)>>handleSignal:
ProgressInitiationException(Exception)>>signal
ProgressInitiationException>>display:at:from:to:during:
ProgressInitiationException class>>display:at:from:to:during:
String>>displayProgressAt:from:to:during:
ScaffoldingCeleste(Celeste)>>sendMail:
ScaffoldingCeleste(Celeste)>>sendQueuedMail
ScaffoldingCeleste(Celeste)>>perform:orSendTo:
[] in MenuItemMorph>>invokeWithEvent: {[(selArgCount := selector
numArgs) = 0   ifTrue: [target perform: selector] ...]}
BlockContext>>ensure:
CursorWithMask(Cursor)>>showWhile:
MenuItemMorph>>invokeWithEvent:
MenuItemMorph>>mouseUp:
MenuItemMorph>>handleMouseUp:
MouseButtonEvent>>sentTo:
MenuItemMorph(Morph)>>handleEvent:
MorphicEventDispatcher>>dispatchDefault:with:
MorphicEventDispatcher>>dispatchEvent:with:
MenuItemMorph(Morph)>>processEvent:using:
MorphicEventDispatcher>>dispatchDefault:with:
MorphicEventDispatcher>>dispatchEvent:with:
MenuMorph(Morph)>>processEvent:using:
MenuMorph(Morph)>>processEvent:
MenuMorph>>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...]}
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]}