===================================================================
RCS file: /home/cvs/OpenXM_contrib2/asir2000/engine/poly.c,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -p -r1.1 -r1.2
--- OpenXM_contrib2/asir2000/engine/poly.c	2004/08/18 00:17:02	1.1
+++ OpenXM_contrib2/asir2000/engine/poly.c	2005/07/03 10:19:22	1.2
@@ -285,7 +285,6 @@ void D_CHSGNP(p,pr)
 P p,*pr;
 {
 	register DCP dc,dcr,dcr0;
-	P t;
 
 	if ( !p ) 
 		*pr = NULL;
@@ -299,7 +298,7 @@ P p,*pr;
 		NEWMQ(mq); CONT(mq)=mod-CONT((MQ)p); *pr = (P)mq;
 #endif
 #else
-		CHSGNNUM(p,t); *pr = t;
+		CHSGNNUM(p,*pr);
 #endif
 	} else {
 		for ( dcr0 = 0, dc = DC(p); dc; dc = NEXT(dc) ) {