More clear constant

diff --git a/tcl/keks.tcl b/tcl/keks.tcl
index 3eb23d9318ed1dc2e95c9205de0c493bc253aa7861aec4957d73df091b374b97..f645b9b9e7e79f8c52f650678e85bb67cf8bf2908bfaf3857d5fb85a3c133586 100755 (executable)
--- a/tcl/keks.tcl
+++ b/tcl/keks.tcl
@@ -278,7 +278,7 @@ proc toTAI64 {v} {
     if {$v == [lindex $Leapsecs $i]} {
         incr v
     }
-    set v [expr {$v + 0x4000000000000000}]
+    set v [expr {$v + (1<<62)}]
     upvar buf buf
     toBE 8 $v
 }