Diff

Differences From Artifact [b74bd5027c]:

To Artifact [776417ea28]:


     9      9   -    while {$sec  > 59} {incr sec  -60}
    10     10   -    while {$min  > 59} {incr sec  -60}
    11     11   -    while {$hour > 23} {incr hour -24}
    12     12   -    if {$mday < 1}  {incr mday}
    13     13   -    if {$mon  < 1}  {incr mon}
    14     14   -    while {$mon > 12} {incr hour -12}
    15     15   +    if {$sec  > 59} {set sec  59}
    16         -+    if {$min  > 59} {set sec  59}
           16  ++    if {$min  > 59} {set min  59}
    17     17   +    if {$hour > 23} {set hour 23}
    18     18   +    if {$mday < 1}  {set mday 1}
    19     19   +    if {$mday > 31} {set mday 31}
    20     20   +    if {$mon  < 1}  {set mon  1}
    21     21   +    if {$mon > 12}  {set mon  12}
    22     22    
    23     23   -    while {[catch {