diff --git a/chapter01/changelog.xml b/chapter01/changelog.xml
index 47f4b98f7..8ba0119d3 100644
--- a/chapter01/changelog.xml
+++ b/chapter01/changelog.xml
@@ -39,6 +39,10 @@
     <listitem>
       <para>2012-11-13</para>
       <itemizedlist>
+        <listitem>
+          <para>[matthew] - Upgrade to Tcl-8.5.13.  Fixes
+          <ulink url="&lfs-ticket-root;3224">#3224</ulink>.</para>
+        </listitem>
         <listitem>
           <para>[matthew] - Upgrade to Kmod-11.  Fixes
           <ulink url="&lfs-ticket-root;3223">#3223</ulink>.</para>
diff --git a/packages.ent b/packages.ent
index 68d8898db..a072bbacd 100644
--- a/packages.ent
+++ b/packages.ent
@@ -505,11 +505,11 @@
 <!ENTITY tar-ch6-du "34 MB">
 <!ENTITY tar-ch6-sbu "2.4 SBU">
 
-<!ENTITY tcl-version "8.5.12">
+<!ENTITY tcl-version "8.5.13">
 <!ENTITY tcl-major-version "8.5">
-<!ENTITY tcl-size "4,396 KB">
+<!ENTITY tcl-size "4,407 KB">
 <!ENTITY tcl-url "&sourceforge;tcl/tcl&tcl-version;-src.tar.gz">
-<!ENTITY tcl-md5 "174b2b4c619ba8f96875d8a051917703">
+<!ENTITY tcl-md5 "fa3a9bf9b2d6ed2431f1baa46f4058b8">
 <!ENTITY tcl-home "http://tcl.sourceforge.net/">
 <!ENTITY tcl-ch5-du "33 MB">
 <!ENTITY tcl-ch5-sbu "0.4 SBU">