can't read "argv": no such variable
    while executing
"if {$argv != {}} {
    set Lf [lindex $argv 0]
} else {
    set Lf [glob *_new.xml]
}"
    (in namespace eval "::request" script line 4)
    invoked from within
"namespace eval ::request $script"
    ("::try" body line 12)
OUTPUT BUFFER:
#!/home/moumou/tcl8.6b1/lubin/bin/tclsh


if {$argv != {}} {
    set Lf [lindex $argv 0]
} else {
    set Lf [glob *_new.xml]
}

foreach f $Lf {
    set c [open $f r]
    set Ll [split [read -nonewline $c] \n]
    close $c
    
    set Li [lsearch -regexp -all $Ll {Discri}]
    foreach i $Li {
	incr i -1
	set l [lindex $Ll $i]
	set l [string map [list fitem "fitem coords=\"global\""] $l]
	set Ll [lreplace $Ll $i $i $l]
    }
    
    set rt [file rootname $f]
    set fx [file extension $f]
    set o [open "${rt}2${fx}" w]
    puts $o [join $Ll \n]
    close $o
}


exit