Add TAI only if time is after 1970

diff --git a/tcl/keks.tcl b/tcl/keks.tcl
index cad23e764e0cfd17530bbea826f87baf955af0de3a01ccee778d59c147ceb313..3eb23d9318ed1dc2e95c9205de0c493bc253aa7861aec4957d73df091b374b97 100755 (executable)
--- a/tcl/keks.tcl
+++ b/tcl/keks.tcl
@@ -271,7 +271,10 @@ proc toTAI64 {v} {
             break
         }
     }
-    set v [expr {$v + 10 + $i}]
+    if {$v > 0} {
+        incr v 10
+    }
+    incr v $i
     if {$v == [lindex $Leapsecs $i]} {
         incr v
     }