while { [gets $finder_savefile finder_saveread] > -1 } {
    lappend finder_savelist $finder_saveread
    putlog "did something here"
}

if { fblocked $finder_savefile } {
    putlog "was blocked"
}