message := WeakMessageSend 
	receiver: Morph new
	selector: #color.
100000 timesRepeat: [ message value ]