===================================================================
RCS file: /home/cvs/OpenXM_contrib2/asir2000/lib/weight,v
retrieving revision 1.27
retrieving revision 1.28
diff -u -p -r1.27 -r1.28
--- OpenXM_contrib2/asir2000/lib/weight	2004/01/10 14:47:01	1.27
+++ OpenXM_contrib2/asir2000/lib/weight	2004/01/10 14:51:56	1.28
@@ -622,7 +622,7 @@ def leastsq(NormMat,ExpMat,Vars,FLAG,ID){
 						TMP=map(subst,TMP,TMP0[I][0],TMP0[I][1])$
 					RET0=value2(Vars,TMP)$
 					if(RET0!=[])
-						RET0=wsort(RET0,Vars,RET0,1/10)$
+						RET0=wsort(RET0,Vars,RET0,ID+1/10)$
 				}
 	
 				TMP=vtol(TMP1[1])$
@@ -633,7 +633,7 @@ def leastsq(NormMat,ExpMat,Vars,FLAG,ID){
 					RET0=value2(Vars,TMP)$
 	
 					if(RET0!=[])
-						RET0=wsort(RET0,Vars,RET0,1/10)$
+						RET0=wsort(RET0,Vars,RET0,ID+1/10)$
 				}
 
 				RET=append(RET,RET0)$