in ColorTest>>testColorFrom errors on
	self assert: ((Color colorFrom: '#FF8800') asHTMLColor = '#ff8800').
if Color >>colorFrom: is changed to use
	parm isColor
	(parm isKindOf: Color)
The error report: 5 December 2004 8:39:14 pm

VM: Win32 - a SmalltalkImage
Image: Squeak3.9alpha [latest update: #6520]

SecurityManager state:
Restricted: false
FileAccess: true
SocketAccess: true
Working Dir C:\Documents and Settings\Thomas Koenig\Desktop\Squeak
Trusted Dir C:\Documents and Settings\Thomas
Koenig\Desktop\Squeak\Thomas Koenig
Untrusted Dir C:\My Squeak\Thomas Koenig

Character(Object)>>doesNotUnderstand: $F
	Receiver: $#
	Arguments and temporary variables: 
<<error during printing>
	Receiver's instance variables: 
		value: 	35

[] in Color class>>colorFrom: {[:sym :ind | ind > 1   ifTrue: [aColor :=
aColor perform: sym]]}
	Arguments and temporary variables: 
		parm: 	'#FF8800'
		aColor: 	$#
		firstParm: 	$#
		sym: 	$F
		ind: 	2

String(SequenceableCollection)>>withIndexDo:
	Receiver: '#FF8800'
	Arguments and temporary variables: 
		elementAndIndexBlock: 	[] in Color class>>colorFrom: {[:sym :ind | ind
> 1   ifT...etc...
		index: 	2
		indexLimiT: 	7
	Receiver's instance variables: 
'#FF8800'

String(SequenceableCollection)>>doWithIndex:
	Receiver: '#FF8800'
	Arguments and temporary variables: 
		elementAndIndexBlock: 	[] in Color class>>colorFrom: {[:sym :ind | ind
> 1   ifT...etc...
	Receiver's instance variables: 
'#FF8800'


--- The full stack ---
Character(Object)>>doesNotUnderstand: $F
[] in Color class>>colorFrom: {[:sym :ind | ind > 1   ifTrue: [aColor :=
aColor perform: sym]]}
String(SequenceableCollection)>>withIndexDo:
String(SequenceableCollection)>>doWithIndex:
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
Color class>>colorFrom:
ColorTest>>testColorFrom
ColorTest(TestCase)>>performTest
[] in ColorTest(TestCase)>>runCase {[self setUp.  self performTest]}
BlockContext>>ensure:
BlockContext>>sunitEnsure:
ColorTest(TestCase)>>runCase
[] in ColorTest(TestCase)>>debug {[(self class selector: testSelector)
runCase]}
BlockContext>>ensure:
BlockContext>>sunitEnsure:
ColorTest(TestCase)>>debug
TestRunner>>debugErrorTest:
PluggableListMorph>>changeModelSelection:
PluggableListMorph>>mouseUp:
PluggableListMorph(Morph)>>handleMouseUp:
MouseButtonEvent>>sentTo:
PluggableListMorph(Morph)>>handleEvent:
PluggableListMorph(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...]}
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]}