===================================================================
RCS file: /home/cvs/OpenXM_contrib2/asir2000/lib/weight,v
retrieving revision 1.35
retrieving revision 1.36
diff -u -p -r1.35 -r1.36
--- OpenXM_contrib2/asir2000/lib/weight	2004/05/06 02:28:07	1.35
+++ OpenXM_contrib2/asir2000/lib/weight	2004/05/06 02:55:39	1.36
@@ -780,7 +780,7 @@ def leastsq(NormMat,ExpMat,Vars,FLAG,ID){
 			RET=append(RET,[[ID,Vars,vtol(TMP1[1])]])$
 	}
 
-	return RET$
+	return [NormMat0,RET]$
 }
 
 def weight(PolyList,Vars,FLAG){
@@ -828,7 +828,7 @@ def weight(PolyList,Vars,FLAG){
 		RET=append(RET,TMP[1])$
 	else{
 		TMP=leastsq(0,ExpMat,Vars,FLAG,7)$
-		RET=append(RET,TMP)$
+		RET=append(RET,TMP[1])$
 	}
 
 	ExpMat=qsort(ExpMat,junban)$
@@ -845,7 +845,7 @@ def weight(PolyList,Vars,FLAG){
 			RET=append(RET,TMP[1])$
 		else{
 			TMP=leastsq(0,ExpMat,Vars,FLAG,9)$
-			RET=append(RET,TMP)$
+			RET=append(RET,TMP[1])$
 		}
 	}
 	else{