drivers/trun.tcl: fix issue with $tr - none

2023-08-08 13:12:49 +02:00
parent fd196d939a
commit 8439d765a4
1 changed files with 1 additions and 1 deletions
--- 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