===================================================================
RCS file: /home/cvs/OpenXM_contrib2/asir2000/engine/gmpq.c,v
retrieving revision 1.6
retrieving revision 1.8
diff -u -p -r1.6 -r1.8
--- OpenXM_contrib2/asir2000/engine/gmpq.c	2017/02/21 09:20:23	1.6
+++ OpenXM_contrib2/asir2000/engine/gmpq.c	2017/08/31 02:36:21	1.8
@@ -84,6 +84,7 @@ Q gztoz(GZ a)
 
 	if ( !a ) return 0;
 	len = WORDSIZE_IN_N(BDY((GZ)a)); nm = NALLOC(len);
+  fprintf(stderr,"%d ",len);
 	mpz_export(BD(nm),&len,-1,sizeof(int),0,0,BDY((GZ)a));
 	PL(nm) = len;
 	sgn = mpz_sgn(BDY((GZ)a)); NTOQ(nm,sgn,q);
@@ -1324,7 +1325,10 @@ void lmtolf(LM a,GZ *b)
 {
   Q q;
 
-  NTOQ(BDY(a),1,q); *b = ztogz(q);
+  if ( !a ) *b = 0;
+  else {
+    NTOQ(BDY(a),1,q); *b = ztogz(q);
+  }
 }
 
 void setmod_lf(N p)