539: Mainline

You can compare Date instances, just as you can compare time instances:

Workspace
Date1 := Date newDay: 1 year: 2000. 
Date2 := DateHandle addDays: 30. 
Transcript show: (Date1 = Date1) printString; cr; 
           show: (Date1 = Date2) printString; cr; 
           show: (Date1 < Date2) printString; cr; 
           show: (Date2 < Date1) printString 
Transcript 
true 
false 
true 
false