diff --git a/site_ansto/instrument/config/hipadaba/hipadaba_configuration_common.tcl b/site_ansto/instrument/config/hipadaba/hipadaba_configuration_common.tcl index 8e5f4887..597860b5 100644 --- a/site_ansto/instrument/config/hipadaba/hipadaba_configuration_common.tcl +++ b/site_ansto/instrument/config/hipadaba/hipadaba_configuration_common.tcl @@ -925,9 +925,11 @@ upvar #0 $instDict dictionary } foreach node [hmatchprop / permlink *] { set plink [hgetpropval $node permlink] - set target [lindex $plink 0] - if {$target == "data_set" && [hgetpropval $node control]} { - ::hdb::alias "/control" $node {*}$plink + if {[llength $plink] > 1} { + set target [lindex $plink 0] + if {$target == "data_set" && [hgetpropval $node control]} { + ::hdb::alias "/control" $node {*}$plink + } } } } message ]