From 4fd3ad498530718be44d41fad46723a9d1646a5d Mon Sep 17 00:00:00 2001
From: camea <markus.zolliker@psi.ch>
Date: Mon, 3 Jul 2023 18:06:13 +0200
Subject: [PATCH] fix error in error_update (erepr)

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

diff --git a/tcl/drivers/secop_4.tcl b/tcl/drivers/secop_4.tcl
index 130a830..9691392 100644
--- 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"
     }