Improper writing of variables and eval stack led to corrupt saves.

diff --git a/src/common/quetzal.c b/src/common/quetzal.c
index ce78b365d7fb4d55fa71a8949a960e3a9b298ac5..c2e9f1e89559467e822749fdffcedc460e32a913 100644 (file)
--- a/src/common/quetzal.c
+++ b/src/common/quetzal.c
@@ -539,7 +539,7 @@ zword save_quetzal (FILE *svf, FILE *stf)
            || !write_word (svf, nstk))                 return 0;
 
        /* Write the variables and eval stack. */
-       for (j=0, ++p; j<nvars+nstk; ++j, --p)
+       for (j=0, --p; j<nvars+nstk; ++j, --p)
            if (!write_word (svf, *p))                  return 0;
 
        /* Calculate length written thus far. */