From d71335b390e4a983655b080105d24b3060cf5e62a68561a06cf2a8c0aeeb09ef Mon Sep 17 00:00:00 2001
From: Sergey Matveev <stargrave@stargrave.org>
Date: Mon, 14 Apr 2025 09:35:34 +0300
Subject: [PATCH] Add TAI only if time is after 1970

---
 tcl/keks.tcl | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/tcl/keks.tcl b/tcl/keks.tcl
index cad23e7..3eb23d9 100755
--- 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
     }
-- 
2.48.1