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
   }