===================================================================
RCS file: /home/cvs/OpenXM_contrib2/asir2000/engine/nd.c,v
retrieving revision 1.122
retrieving revision 1.124
diff -u -p -r1.122 -r1.124
--- OpenXM_contrib2/asir2000/engine/nd.c	2004/12/09 13:20:33	1.122
+++ OpenXM_contrib2/asir2000/engine/nd.c	2005/02/09 07:58:43	1.124
@@ -1,4 +1,4 @@
-/* $OpenXM: OpenXM_contrib2/asir2000/engine/nd.c,v 1.121 2004/12/09 08:56:43 noro Exp $ */
+/* $OpenXM: OpenXM_contrib2/asir2000/engine/nd.c,v 1.123 2005/01/23 14:03:48 noro Exp $ */
 
 #include "nd.h"
 
@@ -2366,6 +2366,7 @@ void nd_gr(LIST f,LIST v,int m,int f4,struct order_spe
 			break;
 	}
 	nd_nalg = 0;
+	av = 0;
 	if ( !m ) {
 		get_algtree((Obj)f,&av);
 		for ( nalg = 0, tv = av; tv; tv = NEXT(tv), nalg++ );
@@ -3414,7 +3415,7 @@ ND nd_quo(int mod,PGeoBucket bucket,NDV d)
 	ND p,t,r;
 	N tnm;
 
-	if ( !p ) return 0;
+	if ( bucket->m < 0 ) return 0;
 	else {
 		nv = NV(d);
 		mq0 = 0;