diff --git a/chapter01/changelog.xml b/chapter01/changelog.xml
index a0e2cbc77..e81655f24 100644
--- a/chapter01/changelog.xml
+++ b/chapter01/changelog.xml
@@ -39,6 +39,10 @@
     <listitem>
       <para>2008-01-22</para>
       <itemizedlist>
+        <listitem>
+          <para>[matthew] - Upgraded to Tcl-8.4.17. Fixes
+          <ulink url="&lfs-ticket-root;2131">#2131</ulink>.</para>
+        </listitem>
         <listitem>
           <para>[matthew] - Upgraded to Man-Pages-2.76. Fixes
           <ulink url="&lfs-ticket-root;2129">#2129</ulink>.</para>
diff --git a/packages.ent b/packages.ent
index 3e68e4868..c3ce50aef 100644
--- a/packages.ent
+++ b/packages.ent
@@ -467,10 +467,10 @@
 <!ENTITY tar-ch6-du "19.9 MB">
 <!ENTITY tar-ch6-sbu "0.3 SBU">
 
-<!ENTITY tcl-version "8.4.16">
-<!ENTITY tcl-size "3,556 KB">
+<!ENTITY tcl-version "8.4.17">
+<!ENTITY tcl-size "3,567 KB">
 <!ENTITY tcl-url "&sourceforge;tcl/tcl&tcl-version;-src.tar.gz">
-<!ENTITY tcl-md5 "f1c783a49547778d160e10be2fb5d76f">
+<!ENTITY tcl-md5 "d2af2c45189c8c7fd1bfdd2a19b0fa30">
 <!ENTITY tcl-home "http://tcl.sourceforge.net/">
 <!ENTITY tcl-ch5-du "24 MB">
 <!ENTITY tcl-ch5-sbu "0.3 SBU">