@@ -11,11 +11,11 @@
 -    while {$hour > 23} {incr hour -24}
 -    if {$mday < 1}  {incr mday}
 -    if {$mon  < 1}  {incr mon}
 -    while {$mon > 12} {incr hour -12}
 +    if {$sec  > 59} {set sec  59}
-+    if {$min  > 59} {set sec  59}
++    if {$min  > 59} {set min  59}
 +    if {$hour > 23} {set hour 23}
 +    if {$mday < 1}  {set mday 1}
 +    if {$mday > 31} {set mday 31}
 +    if {$mon  < 1}  {set mon  1}
 +    if {$mon > 12}  {set mon  12}