--- net-src/tcl/generic/tclStrToD.c	2005-10-13 08:23:22.000000000 -0700
+++ src/tcl/generic/tclStrToD.c	2005-10-21 13:35:34.271528400 -0700
@@ -14,7 +14,7 @@
  * See the file "license.terms" for information on usage and redistribution of
  * this file, and for a DISCLAIMER OF ALL WARRANTIES.
  *
- * RCS: @(#) $Id: tclStrToD.c,v 1.12 2005/10/13 15:23:22 dkf Exp $
+ * RCS: @(#) $Id: tclStrToD.c 782 2005-10-20 00:55:38Z eric.melbardis@netkitsolutions.com $
  *
  *----------------------------------------------------------------------
  */
@@ -1316,6 +1316,8 @@
     retval = MakeHighPrecisionDouble(0, &significandBig, numSigDigs,
 	    exponent);
     
+    mp_clear(&significandBig);     //EPM NETKIT
+
     /*
      * Come here to return the computed value.
      */
@@ -1616,6 +1618,8 @@
      */
 
     if (mp_cmp_mag(&twoMd, &twoMv) == MP_LT) {
+        mp_clear(&twoMd);       //EPM
+        mp_clear(&twoMv);       //EPM
 	return approxResult;
     }
 
@@ -2080,7 +2084,7 @@
     maxpow10_wide = (int)
 	    floor(sizeof(Tcl_WideUInt) * CHAR_BIT * log(2.) / log(10.));
     pow10_wide = (Tcl_WideUInt *)
-	    Tcl_Alloc((maxpow10_wide + 1) * sizeof(Tcl_WideUInt));
+	    ckalloc((maxpow10_wide + 1) * sizeof(Tcl_WideUInt)); //EPM NETKIT
     u = 1;
     for (i = 0; i < maxpow10_wide; ++i) {
 	pow10_wide[i] = u;
