===================================================================
RCS file: /home/cvs/OpenXM_contrib2/asir2000/lib/gr,v
retrieving revision 1.13
retrieving revision 1.14
diff -u -p -r1.13 -r1.14
--- OpenXM_contrib2/asir2000/lib/gr	2001/11/19 00:57:13	1.13
+++ OpenXM_contrib2/asir2000/lib/gr	2001/11/19 01:40:05	1.14
@@ -45,7 +45,7 @@
  * DEVELOPER SHALL HAVE NO LIABILITY IN CONNECTION WITH THE USE,
  * PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE.
  *
- * $OpenXM: OpenXM_contrib2/asir2000/lib/gr,v 1.12 2001/11/01 10:00:19 noro Exp $ 
+ * $OpenXM: OpenXM_contrib2/asir2000/lib/gr,v 1.13 2001/11/19 00:57:13 noro Exp $ 
 */
 extern INIT_COUNT,ITOR_FAIL$
 extern REMOTE_MATRIX,REMOTE_NF,REMOTE_VARS$
@@ -1575,7 +1575,7 @@ def gbcheck(B,V,O)
 {
 	dp_ord(O);
 	D = map(dp_ptod,B,V);	
-	L = dp_gr_checklist(D);
+	L = dp_gr_checklist(D,length(V));
 	DP = L[0]; Plist = L[1];
 	for ( IL = [], I = size(DP)[0]-1; I >= 0; I-- )
 		IL = cons(I,IL);