1 files changed, 1 insertions, 2 deletions

diff --git a/src/data.c b/src/data.c
index a1215b9d6bf..66f508c8f43 100644
--- a/src/data.c
+++ b/src/data.c
@@ -3350,8 +3350,7 @@ representation.  */)
         return make_fixnum (mpz_popcount (XBIGNUM (value)->value));
       mpz_t tem;
       mpz_init (tem);
-      mpz_neg (tem, XBIGNUM (value)->value);
-      mpz_sub_ui (tem, tem, 1);
+      mpz_com (tem, XBIGNUM (value)->value);
       Lisp_Object result = make_fixnum (mpz_popcount (tem));
       mpz_clear (tem);
       return result;