1 files changed, 5 insertions, 7 deletions

diff --git a/src/fns.c b/src/fns.c
index 17a869e1abc..8b25492eaeb 100644
--- a/src/fns.c
+++ b/src/fns.c
@@ -1468,19 +1468,17 @@ DEFUN ("nthcdr", Fnthcdr, Snthcdr, 2, 2, 0,
       /* Undo any error introduced when LARGE_NUM was substituted for
          N, by adding N - LARGE_NUM to NUM, using arithmetic modulo
          CYCLE_LENGTH.  */
-      mpz_t z; /* N mod CYCLE_LENGTH.  */
-      mpz_init (z);
+      /* Add N mod CYCLE_LENGTH to NUM.  */
       if (cycle_length <= ULONG_MAX)
-        num += mpz_mod_ui (z, XBIGNUM (n)->value, cycle_length);
+        num += mpz_mod_ui (mpz[0], XBIGNUM (n)->value, cycle_length);
       else
         {
-          mpz_set_intmax (z, cycle_length);
-          mpz_mod (z, XBIGNUM (n)->value, z);
+          mpz_set_intmax (mpz[0], cycle_length);
+          mpz_mod (mpz[0], XBIGNUM (n)->value, mpz[0]);
           intptr_t iz;
-          mpz_export (&iz, NULL, -1, sizeof iz, 0, 0, z);
+          mpz_export (&iz, NULL, -1, sizeof iz, 0, 0, mpz[0]);
           num += iz;
         }
-      mpz_clear (z);
       num += cycle_length - large_num % cycle_length;
     }
   num %= cycle_length;