Thanks, it works that way. Just a correction, you have to put:
set bullet_value [set bullet.$i] instead of [set $bullet.$i]
for {set i 1} {$i <= $j} {incr i} {
#to get the value:
------> set bullet_value [set $bullet.$i]
if { ![empty_string_p $bullet_value ] } {
lappend bullet_list $bullet_value
}
}