Last change for array names was almost right.

tbsetup/ns2ir/parse.tcl.in

@@ -35,9 +35,9 @@ proc set {args} {
 	    if {[llength $args] > 1} {
 		# Munge var in case it's a variable
 		regsub -all {[(]} $var {-} out
-		set var $out
+		real_set var $out
 		regsub -all {[)]} $var {} out
-		set var $out
+		real_set var $out
 		real_set val [lindex $args 1]
 		if {([regexp {^n[0-9]+$} $val] != -1) ||
 		    ([regexp {^lan[0-9]+$} $val] != -1) ||