Restored today()

I did not realize that this routine is relevant for 'lsdue(...)'