X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=src%2Flanguage%2Fdata-io%2Fdata-writer.c;h=bf9505e7dd82878270a59ab13372c2a0137720c4;hb=76f722cdfd6475f8ae2d98139ea596adfcdb47be;hp=65de635302e3fe2613bb04b72e49243ba06310e5;hpb=df2e56765a2dc2cfcd41f4e2fb3bf84ce1be45f1;p=pspp

diff --git a/src/language/data-io/data-writer.c b/src/language/data-io/data-writer.c
index 65de635302..bf9505e7dd 100644
--- a/src/language/data-io/data-writer.c
+++ b/src/language/data-io/data-writer.c
@@ -218,7 +218,7 @@ dfm_close_writer (struct dfm_writer *w)
   if (w->file != NULL)
     {
       const char *file_name = fh_get_file_name (w->fh);
-      ok = !dfm_write_error (w) && !fn_close (file_name, w->file);
+      ok = !dfm_write_error (w) && !fn_close (w->fh, w->file);
 
       if (!ok)
         msg (ME, _("I/O error occurred writing data file `%s'."), file_name);