replace line 228 with this ---> puts $fplm_scanh "#!/bin/sh\n#\\\nexec tclsh \"\$0\" \"\$@\"\n\nset fplm(taba) \"$fplm(taba)\"\nset fplm(tabb) \"$fplm(tabb)\"\nset fplm(tbaa) \"$fplm(tbaa)\"\nset fplm(tbab) \"$fplm(tbab)\"\nset fplm(tbac) \"$fplm(tbac)\"\nset fplm(tbad) \"$fplm(tbad)\"\nset fplm(tbae) \"$fplm(tbae)\"\nset fplm(tbaf) \"$fplm(tbaf)\"\nset fplm(tbag) \"$fplm(tbag)\"\nset fplm(tbah) \"$fplm(tbah)\"\nset fplm(tbba) \"$fplm(tbba)\"\nset fplm(tbbb) \"$fplm(tbbb)\"\nload $fplm(defb)\nproc fplm_chpre \{\} \{\nglobal fplm\nset fplm_scana \[exec lftp -f $fplm(defa)$fplm_scane\]\n::mysql::exec \[fplm_c2db\] \"UPDATE $fplm(tabb) SET $fplm(tbbb) = \'\' WHERE $fplm(tbba) =\'[lindex $fplm_scanc 0]\'\"\nset fplm_scanc \[exec sed s/\\ /_/g $fplm(defa)$fplm_scana > $fplm(defa)$fplm_scana.tmp\]\nset fplm_scand \[exec cat $fplm(defa)$fplm_scana.tmp\]\nforeach \{fplm_scane\} \$fplm_scand \{\nset fplm_scanf \[::mysql::escape \$fplm_scane\]\n::mysql::exec \[fplm_c2db\] \"UPDATE \$fplm(tabb) SET \$fplm(tbbb)=CONCAT(\$fplm(tbbb), '\$fplm_scanf\n') WHERE \$fplm(tbba)=\'[lindex $fplm_scanc 0]\'\"\n::mysql::close\n\}\nset fplm_scang \[exec rm -f $fplm(defa)$fplm_scane\]\nset fplm_scanh \[exec rm -f $fplm(defa)$fplm_scana\]\nset fplm_scani \[exec rm -f $fplm(defa)$fplm_scana.tmp\]\n::mysql::close\n\}\n\nproc fplm_c2db \{\} \{\nglobal fplm\nset fplm_c2tdb \[::mysql::connect -host $fplm(host) -user $fplm(user) -password $fplm(pass) -db $fplm(mydb)\]\n\}\n\nfplm_chpre\n"