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

---
 tcl/seacom.tcl | 10 ++++++++--
 1 file changed, 8 insertions(+), 2 deletions(-)

diff --git a/tcl/seacom.tcl b/tcl/seacom.tcl
index 89bde7c..d09a61c 100644
--- a/tcl/seacom.tcl
+++ b/tcl/seacom.tcl
@@ -2469,13 +2469,19 @@ proc mainGroup {{forweb ""}} {
   Label [string toupper [result instrument]]
   NoNewline
 
-  set u_device [silent [hval /device/name] hval /device/name_label]
+  # TODO: remove this intermediate fix on running sea server
+  if {[silent 0 hval /device/name_label] eq "0"} {
+    device makeitem name_label [string toupper [hval /device/name]]
+    device makeitem stick_label [string toupper [hval /device/stick_name]]
+  }
+
+  set u_device [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 [silent [hval /device/stick_name] hval /device/stick_label]
+    set u_stick [hval /device/stick_label]
     SelectButton "-sticks" "Stick: $u_stick"
     NoNewline
   }