diff --git a/chapter01/changelog.xml b/chapter01/changelog.xml
index bac7482bd..f6ef99d3f 100644
--- a/chapter01/changelog.xml
+++ b/chapter01/changelog.xml
@@ -40,6 +40,15 @@
     appropriate for the entry or if needed the entire day's listitem.
     -->
 
+    <listitem>
+      <para>2024-10-03</para>
+      <itemizedlist>
+        <listitem>
+          <para>[bdubbs] - Revert back to tcl8.6.15.</para>
+        </listitem>
+      </itemizedlist>
+    </listitem>
+
     <listitem>
       <para>2024-10-01</para>
       <itemizedlist>
diff --git a/chapter01/whatsnew.xml b/chapter01/whatsnew.xml
index 97b62cae0..2bd9ce999 100644
--- a/chapter01/whatsnew.xml
+++ b/chapter01/whatsnew.xml
@@ -292,17 +292,17 @@
   <itemizedlist>
     <title>Added:</title>
     <listitem><para></para></listitem>  <!-- satisfy build -->
-    <listitem>
+    <!--<listitem>
       <para>expect-5.45.4-gcc14-2.patch</para>
-    </listitem>
+    </listitem>-->
   </itemizedlist>
 
   <itemizedlist>
     <title>Removed:</title>
     <listitem><para></para></listitem>  <!-- satisfy build -->
-    <listitem>
+    <!--<listitem>
       <para>expect-5.45.4-gcc14-1.patch</para>
-    </listitem>
+    </listitem>-->
     <!--<listitem>
       <para>readline-8.2-upstream_fixes-3.patch</para>
     </listitem>-->
diff --git a/chapter08/expect.xml b/chapter08/expect.xml
index b1ee27f29..d7c6341f4 100644
--- a/chapter08/expect.xml
+++ b/chapter08/expect.xml
@@ -69,7 +69,7 @@
 
     <para>Now, make some changes to allow the package with gcc-14.1 or later:</para>
 
-<screen><userinput remap="pre">patch -Np1 -i ../expect-&expect-version;-gcc14-2.patch</userinput></screen>
+<screen><userinput remap="pre">patch -Np1 -i ../expect-&expect-version;-gcc14-1.patch</userinput></screen>
 
     <para>Prepare Expect for compilation:</para>
 
diff --git a/chapter08/tcl.xml b/chapter08/tcl.xml
index 93621fc37..fa9d42dcc 100644
--- a/chapter08/tcl.xml
+++ b/chapter08/tcl.xml
@@ -4,7 +4,7 @@
   <!ENTITY % general-entities SYSTEM "../general.ent">
   %general-entities;
   <!ENTITY tdbc-ver          "1.1.9">
-  <!ENTITY itcl-ver          "4.3.1">
+  <!ENTITY itcl-ver          "4.3.0">
 ]>
 
 <sect1 id="ch-system-tcl" role="wrap">
@@ -75,7 +75,7 @@ cd unix
 
     <para>Build the package:</para>
 
-<screen><userinput remap="make">make NATIVE_ZIP=$PWD/minizip
+<screen><userinput remap="make">make 
 
 sed -e "s|$SRCDIR/unix|/usr/lib|" \
     -e "s|$SRCDIR|/usr/include|"  \
@@ -104,8 +104,6 @@ unset SRCDIR</userinput></screen>
 
 <screen><userinput remap="test">make test</userinput></screen>
 
-    <para>Twelve tests are known to fail in the chroot environment.</para>
-
     <para>Install the package:</para>
 
 <screen><userinput remap="install">make install</userinput></screen>
diff --git a/packages.ent b/packages.ent
index 056bb4851..6909e23e9 100644
--- a/packages.ent
+++ b/packages.ent
@@ -697,15 +697,15 @@
 <!ENTITY tar-fin-du "43 MB">
 <!ENTITY tar-fin-sbu "0.7 SBU">
 
-<!ENTITY tcl-version "9.0.0">
-<!ENTITY tcl-major-version "9.0">
-<!ENTITY tcl-size "11,377 KB">
+<!ENTITY tcl-version "8.6.15">
+<!ENTITY tcl-major-version "8.6">
+<!ENTITY tcl-size "11,490 KB">
 <!ENTITY tcl-url "https://downloads.sourceforge.net/tcl/tcl&tcl-version;-src.tar.gz">
-<!ENTITY tcl-md5 "d7a0086033f6a50218ef69ecc0e088db">
+<!ENTITY tcl-md5 "c13a4d5425b5ae335258342b38ba34c2">
 <!ENTITY tcl-home "https://tcl.sourceforge.net/">
 <!ENTITY tcl-docs-url "https://downloads.sourceforge.net/tcl/tcl&tcl-version;-html.tar.gz">
-<!ENTITY tcl-docs-md5 "94d50af62ecd72e041da5b4b06f8d051">
-<!ENTITY tcl-docs-size "1,290 KB">
+<!ENTITY tcl-docs-md5 "146d6317a5318ad79d4c1421ba612fe9">
+<!ENTITY tcl-docs-size "1,169 KB">
 <!ENTITY tcl-tmp-du "91 MB">
 <!ENTITY tcl-tmp-sbu "3.2 SBU">