X-Git-Url: https://git.distorted.org.uk/~mdw/catacomb/blobdiff_plain/3d86dc1eec364744b12daf0230d072a4317d78bc..2c70dfbf7facca44ff6074d865f429a6ae0ace5e:/pub/dh-kcdsa.c

diff --git a/pub/dh-kcdsa.c b/pub/dh-kcdsa.c
index e7733095..5feda92f 100644
--- a/pub/dh-kcdsa.c
+++ b/pub/dh-kcdsa.c
@@ -88,7 +88,7 @@ int dh_kcdsagen(dh_param *dp, unsigned ql, unsigned pl,
   dp->q = pgen("p", MP_NEW, x, ev, ec,
 	       steps, pgen_simulstep, &ss,
 	       rabin_iters(ql), pgen_simultest, &ss);
-  mp_drop(sp[0].mul);
+  mp_drop(sp[1].mul);
   if (!dp->q)
     goto fail_1;
   dp->p = sp[1].u.x;