From 59d665c85b579c0d7388368296d26b68d37d9e03 Mon Sep 17 00:00:00 2001
From: Markus Zolliker <markus.zolliker@psi.ch>
Date: Wed, 3 Sep 2025 10:22:12 +0200
Subject: [PATCH] secop: fix bug when write failed

clear the property secoprequested in case an error message
is received
---
 tcl/drivers/secop_4.tcl | 1 +
 1 file changed, 1 insertion(+)

diff --git a/tcl/drivers/secop_4.tcl b/tcl/drivers/secop_4.tcl
index a6c5d97..23173bf 100644
--- a/tcl/drivers/secop_4.tcl
+++ b/tcl/drivers/secop_4.tcl
@@ -790,6 +790,7 @@ proc secop::update_ {} {
       set requesttype [string range $messagetype 6 end]
       if {$requesttype eq "change" && $path ne ""} {
         hsetprop $path changed 0
+        catch {hdelprop $path secoprequested}
       }
       lassign $sent_message sent_type sent_par
       if {$requesttype eq $sent_message && $par eq $sent_par} {