datetime, format method doesn't work on iterators?

An example:

SuperStrict

Framework BaH.DateTime
Import BRL.StandardIO

Local D:TDate = TDate.localday()
Local Mitr:TDateMonthIterator = D.monthIterator()
Local Ditr:TDateDayIterator = D.dayIterator()
Local Yitr:TDateYearIterator = D.yearIterator()

Ditr.forward()
Mitr.forward()
Yitr.forward()

Print "Start date:     " + D.Format("%d %B %Y")
Print "Day iterator:   " + Ditr.Format("%d %B %Y")
Print "Month iterator: " + Mitr.Format("%d %B %Y")
Print "Year iterator:  " + Yitr.Format("%d %B %Y")

Which gives the following interesting output:

Start date:     01 March 2009
Day iterator:   18 July 8755
Month iterator: 04 September 8755
Year iterator:  11 August 8755

Is this fixable? :)

Brucey

It should work a little better now :

Start date:     02 March 2009
Day iterator:   03 March 2009
Month iterator: 02 April 2009
Year iterator:  02 March 2010

:-)