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"
     }