Error in startup script: can't read "leaf": no such variable
    while executing
"if {$leaf > 0} {
        lappend treenodes $node
    }"
    (procedure "writeNode" line 5)
    invoked from within
"writeNode "$j $which $snode $element $leaf""
    (procedure "makeNodeP" line 17)
    invoked from within
"makeNodeP $node [set ${node}str]"
    (procedure "listHAL" line 10)
    invoked from within
"listHAL"
    (procedure "refreshHAL" line 13)
    invoked from within
"refreshHAL"
    (file "/usr/share/emc/tcl/bin/halshow.tcl" line 580)