===================================================================
RCS file: /home/cvs/OpenXM_contrib2/asir2000/lib/weight,v
retrieving revision 1.20
retrieving revision 1.22
diff -u -p -r1.20 -r1.22
--- OpenXM_contrib2/asir2000/lib/weight	2004/01/07 08:11:51	1.20
+++ OpenXM_contrib2/asir2000/lib/weight	2004/01/08 04:26:33	1.22
@@ -707,16 +707,11 @@ def weight(PolyList,Vars,FLAG){
 	}
 	else{
 		TMP0=map(ltov,TMP0)$
-		TMP0=ltov(TMP0)$
 
 		for(I=0;I<length(TMP0);I++)
-			if(TMP0[I][0]==3)
-				TMP0[I][0]=5$
-			else if(TMP0[I][0]==4)
-				TMP0[I][0]=6$
+			TMP0[I][0]+=2$
 
 		TMP0=map(vtol,TMP0)$
-		TMP0=vtol(TMP0)$
 
 		RET=append(RET,TMP0)$
 	}