===================================================================
RCS file: /home/cvs/OpenXM_contrib2/asir2000/lib/weight,v
retrieving revision 1.29
retrieving revision 1.30
diff -u -p -r1.29 -r1.30
--- OpenXM_contrib2/asir2000/lib/weight	2004/01/13 03:26:49	1.29
+++ OpenXM_contrib2/asir2000/lib/weight	2004/01/14 09:29:39	1.30
@@ -706,10 +706,10 @@ def unitweight(ExpMat,Vars,PolyListNum,OneMat,FLAG){
 
 	if(jacobi(ExtMatColNum,NormMat1,WorkMat)){
 
-		Res=newvect(ExpMatColNum)$
-		for(I=0;I<ExpMatColNum;I++){
+		Res=newvect(ExtMatColNum)$
+		for(I=0;I<ExtMatColNum;I++){
 			Res[I]=newvect(2)$
-			Res[I][0]=Vars[I]$
+			Res[I][0]=ExtVars[I]$
 			Res[I][1]=WorkMat[ExtMatColNum-1][I]$
 		}