diff --git a/libguile/integers.c b/libguile/integers.c
index a1231a10d..adf1c401e 100644
--- a/libguile/integers.c
+++ b/libguile/integers.c
@@ -3385,10 +3385,6 @@ scm_integer_inexact_sqrt_i (scm_t_inum k)
 double
 scm_integer_inexact_sqrt_z (struct scm_bignum *k)
 {
-  mpz_t zk, zs;
-  alias_bignum_to_mpz (k, zk);
-  mpz_init (zs);
-
   long expon;
   double signif = scm_integer_frexp_z (k, &expon);
   int negative = signif < 0;