===================================================================
RCS file: /home/cvs/OpenXM/src/ox_pari/convert.c,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -p -r1.3 -r1.4
--- OpenXM/src/ox_pari/convert.c	2016/06/29 12:08:51	1.3
+++ OpenXM/src/ox_pari/convert.c	2017/02/22 04:53:13	1.4
@@ -162,7 +162,7 @@ cmo_qq *GEN_to_cmo_qq(GEN z)
   den = (GEN)z[2];
   c = new_cmo_qq();
   mpz_import(mpq_numref(c->mpq),lgef(num)-2,1,sizeof(long),0,0,&num[2]);
-  mpz_import(mpq_denref(c->mpq),lgef(num)-2,1,sizeof(long),0,0,&den[2]);
+  mpz_import(mpq_denref(c->mpq),lgef(den)-2,1,sizeof(long),0,0,&den[2]);
   if ( signe(num)*signe(den) < 0 )
     mpz_neg(mpq_numref(c->mpq),mpq_numref(c->mpq));
   return c;