Update treevariable.tcl

The error return for the check operation was incorrect.
FRIBDAQ · Mar 28, 2024 · 49e04a0 · 49e04a0
1 parent e150b48
commit 49e04a0
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/main/rest/custom/treevariable.tcl b/main/rest/custom/treevariable.tcl
@@ -90,7 +90,7 @@ proc SpecTcl_treevariable/check {name} {
     } msg]
     if {$status} {
         return [SpecTcl::_returnObject                        \
-            OK [json::write string $msg]                      \
+            "'treevariable -check failed" [json::write string $msg]                      \
         ]
     }
     SpecTcl::_returnObject OK $msg