sintakticka greska za koju Tcl ne javlja warning

diff --git a/linux/appstart.tcl b/linux/appstart.tcl
index 0abb18e6d45d2c5d81112b90b1c3442e0888204d..56dd2277757895bca566598b306468140d793a06 100644 (file)
--- a/linux/appstart.tcl
+++ b/linux/appstart.tcl
@@ -58,7 +58,7 @@ proc startethereal { node iface } {
     #set interface "$iface@$eid\.$node"
     upvar 0 ::cf::[set ::curcfg]::ngnodemap ngnodemap
     upvar 0 ::cf::[set ::curcfg]::[set node]::node_id node_id
-    set interface ngnodemap($iface@$node_id)
+    set interface $ngnodemap($iface@$node_id)
     
     nexec wireshark -i $interface -f " " &
 }