From 2fdb2c5c9ebb545cc9c14d867670ca99394e7429 Mon Sep 17 00:00:00 2001
From: Markus Zolliker <markus.zolliker@psi.ch>
Date: Wed, 18 Jun 2025 08:03:21 +0200
Subject: [PATCH] intermediate fix for missing name_label / stick_label

---
 tcl/seacom.tcl | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/tcl/seacom.tcl b/tcl/seacom.tcl
index ea25132..89bde7c 100644
--- a/tcl/seacom.tcl
+++ b/tcl/seacom.tcl
@@ -2432,7 +2432,7 @@ proc -addonGroup {} {
 
 proc webSelectGroup {} {
   # group name starting with '-': group is hidden until activated with button
-  set u_device [hval /device/name_label]
+  set u_device [silent [hval /device/name] hval /device/name_label]
   set u_stick ""
   if {[result device stick_menu] ne ""} {
     set u_stick [hval /device/stick_label]
@@ -2469,13 +2469,13 @@ proc mainGroup {{forweb ""}} {
   Label [string toupper [result instrument]]
   NoNewline
 
-  set u_device [hval /device/name_label]
+  set u_device [silent [hval /device/name] hval /device/name_label]
   set lab "Device: $u_device"
   SelectButton -device $lab
   NoNewline
   set u_stick ""
   if {[result device stick_menu] ne ""} {
-    set u_stick [hval /device/stick_label]
+    set u_stick [silent [hval /device/stick_name] hval /device/stick_label]
     SelectButton "-sticks" "Stick: $u_stick"
     NoNewline
   }