diff --git a/ChangeLog b/ChangeLog
index 49903d06cb3b639a9630b41b4b12b12a74360f04..19bd0fc7928024f325dec9c47b750c4d5decd0a0 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2012-05-09  Niels Möller  <nisse@lysator.liu.se>
+
+	* rsa-decrypt-tr.c (rsa_decrypt_tr): Added missing mpz_clear,
+	spotted by Nikos Mavrogiannopoulos.
+
 2012-05-07  Niels Möller  <nisse@lysator.liu.se>
 
 	* nettle-types.h (_STDINT_HAVE_INT_FAST32_T): Define here, to
diff --git a/rsa-decrypt-tr.c b/rsa-decrypt-tr.c
index d2e760366896a2a1556287fbfd1b8a2475b2e486..d130a0690713b80c393a644f78c00cef30e4d76e 100644
--- a/rsa-decrypt-tr.c
+++ b/rsa-decrypt-tr.c
@@ -86,7 +86,8 @@ rsa_decrypt_tr(const struct rsa_public_key *pub,
   rsa_blind (pub, random_ctx, random, m, ri);
   rsa_compute_root(key, m, m);
   rsa_unblind (pub, m, ri);
-  
+  mpz_clear (ri);
+
   res = pkcs1_decrypt (key->size, m, length, message);
   mpz_clear(m);
   return res;