diff --git a/chapter01/changelog.xml b/chapter01/changelog.xml
index 8fd2d8480..52d558a1b 100644
--- a/chapter01/changelog.xml
+++ b/chapter01/changelog.xml
@@ -40,6 +40,10 @@
     <listitem>
       <para>2009-05-10</para>
       <itemizedlist>
+        <listitem>
+          <para>[matthew] - Upgrade to Tcl-8.5.7. Fixes
+          <ulink url="&lfs-ticket-root;2385">#2385</ulink>.</para>
+        </listitem>
         <listitem>
           <para>[matthew] - Upgrade to Shadow-4.1.3.1. Fixes
           <ulink url="&lfs-ticket-root;2382">#2382</ulink>.</para>
diff --git a/packages.ent b/packages.ent
index 84309f3a2..1cd5956b9 100644
--- a/packages.ent
+++ b/packages.ent
@@ -474,11 +474,11 @@
 <!ENTITY tar-ch6-du "19.9 MB">
 <!ENTITY tar-ch6-sbu "0.3 SBU">
 
-<!ENTITY tcl-version "8.5.6">
+<!ENTITY tcl-version "8.5.7">
 <!ENTITY tcl-major-version "8.5">
-<!ENTITY tcl-size "4,306 KB">
+<!ENTITY tcl-size "4,318 KB">
 <!ENTITY tcl-url "&sourceforge;tcl/tcl&tcl-version;-src.tar.gz">
-<!ENTITY tcl-md5 "d0b0b3ff7600ff63135c710b575265cd">
+<!ENTITY tcl-md5 "f70ad8f78b5e4a9f792fe101f22b125f">
 <!ENTITY tcl-home "http://tcl.sourceforge.net/">
 <!ENTITY tcl-ch5-du "36 MB">
 <!ENTITY tcl-ch5-sbu "0.5 SBU">