Fix EXPORT problem with string variables. From Andreas Streichardt

[pspp-builds.git] / src / pfm-write.c

diff --git a/src/pfm-write.c b/src/pfm-write.c
index 359f0440159480c26d9d40264ccc1079e85bb232..054621fea3335dba01d08c8add37a40e38ddac89 100644 (file)
--- a/src/pfm-write.c
+++ b/src/pfm-write.c
@@ -473,7 +473,7 @@ pfm_write_case (struct file_handle *h, const union value *elem)
        }
       else
        {
-         if (!write_int (h, width) || !bufwrite (h, elem->c, width))
+         if (!write_int (h, width) || !bufwrite (h, elem[i].c, width))
            return 0;
        }
     }