===================================================================
RCS file: /home/cvs/OpenXM_contrib2/asir2000/engine/nd.c,v
retrieving revision 1.122
retrieving revision 1.123
diff -u -p -r1.122 -r1.123
--- OpenXM_contrib2/asir2000/engine/nd.c	2004/12/09 13:20:33	1.122
+++ OpenXM_contrib2/asir2000/engine/nd.c	2005/01/23 14:03:48	1.123
@@ -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.122 2004/12/09 13:20:33 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++ );