From 3ea9b380517c276066b3a7e7485f4295d0901849 Mon Sep 17 00:00:00 2001
From: hrpt <markus.zolliker@psi.ch>
Date: Thu, 2 Nov 2023 16:55:00 +0100
Subject: [PATCH] dbctrl: fix issue not fixed properly

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

diff --git a/tcl/drivers/trun.tcl b/tcl/drivers/trun.tcl
index 6f679d4..7390b86 100644
--- a/tcl/drivers/trun.tcl
+++ b/tcl/drivers/trun.tcl
@@ -497,9 +497,10 @@ 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
+    sct prev_tr $tmain
   } else {
     set dif [expr $tr - $prev_tr]
     updateval_u [sct]/target $tr 0