From b2c0c1c62e3a56ce038963361ce393c3389bdcec Mon Sep 17 00:00:00 2001
From: camea <markus.zolliker@psi.ch>
Date: Mon, 3 Jul 2023 18:06:51 +0200
Subject: [PATCH] fix error with dblctrl (not going to 'up' mode)

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

diff --git a/tcl/drivers/trun.tcl b/tcl/drivers/trun.tcl
index 585b0a1..53bc8ad 100644
--- a/tcl/drivers/trun.tcl
+++ b/tcl/drivers/trun.tcl
@@ -496,10 +496,12 @@ 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
   } else {
-    set dif [expr abs($tr) - [hvali [sct]/target]]
+    set dif [expr $tr - $prev_tr]
     updateval_u [sct]/target $tr 0
     set dblmode [silent -1 hval [sct]/dblctrl/mode]
     if {$dblmode >= 0} { # not disabled