TCl/Tk и кавычки

Читаю данные со стандартного вывода в программе, и вывожу их в таблицу (tk_Table). Если попадается строка типа: ""Central Bank"", то выводится сообщение об ошибке:
Error: list element in quotes followed by "Central" instead of space
вывод получаю след. образом:
#кусок кода
set fileid [open "|$emppath [concat $dbdir$currdb] \"SELECT $attr from $currtable\""]
fconfigure $fileid -translation lf -buffering line
while {[gets $fileid i]>=0} {
if {[set x [llength $i]]>1} {
set j 1
while {$x>$j} {
set i [lreplace $i 0 0 [concat [lindex $i 0] " "]]
set i [lreplace $i 0 0 [concat [lindex $i 0][lindex $i $j]]]
incr j
}
}
.select.frame.tab set row $a,$count $i
incr $a
}
#конец куска кода

Вопрос: как избежать сообщения об ошибке, и добиться нормального вывода строк типа ""Central Bank"???