Add a missing [close $fp]