Nicolas Cellier uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-nice.385.mcz

==================== Summary ====================

Name: Morphic-nice.385
Author: nice
Time: 20 March 2010, 8:29:32.638 am
UUID: 0ec9e301-8163-0e4f-91a0-ed9d74b5e88c
Ancestors: Morphic-cmm.384

Let add: answer the added object argument.

=============== Diff against Morphic-cmm.384 ===============

Item was changed:
  ----- Method: MorphicAlarmQueue>>add: (in category 'adding') -----
  add: aMorphicAlarm
  	(sequenceNumber := sequenceNumber + 1) == 16r3FFFFFFF ifTrue: [
  		"Sequence number overflow... reassign sequence numbers starting at 0."
  		| alarmList |
  		alarmList := self asArray sort: [:msg1 :msg2 |
  			 msg1 sequenceNumber < msg2 sequenceNumber
  		].
  		alarmList withIndexDo: [:msg :ind | msg sequenceNumber: ind-1].
  		"The #bitAnd: for the unlikely event that we have > 16r3FFFFFF messages in the queue."
  		sequenceNumber := alarmList last sequenceNumber + 1 bitAnd: 16r3FFFFFFF.
  	].
  	aMorphicAlarm sequenceNumber: sequenceNumber.
  	super add: aMorphicAlarm.
  	
  	"If we doubt our sanity..."
  	false ifTrue: [
  		self isValidHeap ifFalse: [self error: 'not a valid heap!!!!!!'].
+ 	].
+ 	^aMorphicAlarm!
- 	]!