* filesys.c (scm_copy_file): Avoid fd leak when destination file
        cannot be opened.

(This is for 1.6 too.)