'From Cuis 2.4 of 17 June 2010 [latest update: #509] on 9 August 2010 at 11:51:05 am'!

!Date methodsFor: 'squeak protocol' stamp: 'jmv 8/9/2010 11:50'!
< aDate

	self assert: aDate class == Date.
	^ self start < aDate start! !

