===================================================================
RCS file: /home/cvs/OpenXM_contrib2/asir2000/lib/weight,v
retrieving revision 1.22
retrieving revision 1.23
diff -u -p -r1.22 -r1.23
--- OpenXM_contrib2/asir2000/lib/weight	2004/01/08 04:26:33	1.22
+++ OpenXM_contrib2/asir2000/lib/weight	2004/01/08 06:48:32	1.23
@@ -565,7 +565,7 @@ def leastsq(NormMat,ExpMat,Vars,FLAG,ID){
 			return RET$
 		}
 		else{
-			RET=append(RET,[[ID,Vars,vtol(TMP1[1]*1.0)]])$
+			RET=append(RET,[[ID,Vars,vtol(TMP1[1])]])$
 			return RET$
 		}
 	}