diff --git a/tcl/drivers/secop_4.tcl b/tcl/drivers/secop_4.tcl index 0eaf539..b8d279b 100644 --- a/tcl/drivers/secop_4.tcl +++ b/tcl/drivers/secop_4.tcl @@ -610,7 +610,7 @@ proc secop::update_ {} { } set writestatus [silent done hgetpropval $objpath writestatus] if {$value < 100 || $value >= 400} { # error - updateerror $objpath $text_value + # updateerror $objpath $text_value catch { updateerror $objpath/target $text_value }