From 8439d765a4a239a8de354b75dc0ba483adcc1da1 Mon Sep 17 00:00:00 2001
From: zebra <markus.zolliker@psi.ch>
Date: Tue, 8 Aug 2023 13:12:49 +0200
Subject: [PATCH] drivers/trun.tcl: fix issue with $tr - none

---
 tcl/drivers/trun.tcl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/tcl/drivers/trun.tcl b/tcl/drivers/trun.tcl
index 53bc8ad..6f679d4 100644
--- a/tcl/drivers/trun.tcl
+++ b/tcl/drivers/trun.tcl
@@ -497,9 +497,9 @@ proc trun::read_run {} {
   set now [DoubleTime]
   set tr [silent none sct target]
   set prev_tr [silent $tr sct prev_tr]
-  sct prev_tr $tr
   if {$tr eq "none"} {
     set tr $tmain
+    sct prev_tr $tr
   } else {
     set dif [expr $tr - $prev_tr]
     updateval_u [sct]/target $tr 0