fix error in error_update (erepr)

2023-07-03 18:06:13 +02:00
parent 4ea2f9a581
commit 4fd3ad4985
1 changed files with 1 additions and 1 deletions
--- a/tcl/drivers/secop_4.tcl
+++ b/tcl/drivers/secop_4.tcl
@ -758,7 +758,7 @@ proc secop::update_ {} {
    }
    error_update {
      lassign $val etype erepr
-      set etext erepr
+      set etext $erepr
      regexp {.*'(.*)'} $erepr -> etext
      hsetprop $path geterror "${etype}: $etext"
    }