diff --git a/books/bookvol10.4.pamphlet b/books/bookvol10.4.pamphlet
index 8f6b4dd..c84b33b 100644
--- a/books/bookvol10.4.pamphlet
+++ b/books/bookvol10.4.pamphlet
@@ -46251,6 +46251,8 @@ InnerModularGcd(R,BP,pMod,nextMod):C == T
       hg:=height g
       2*min(hf,hg)
 
+@
+\begin{verbatim}
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 \section{package FOMOGCD ForModularGcd}
 -- ForModularGcd(R,BP) : C == T
@@ -46301,7 +46303,7 @@ InnerModularGcd(R,BP,pMod,nextMod):C == T
 --   T ==> InnerModularGcd(R,P,nextMod(monomial(1,1)$R)$ForTwoGcd(F),
 --                         nextMod$ForTwoGcd(F))
 
-@
+\end{verbatim}
 <<INMODGCD.dotabb>>=
 "INMODGCD" [color="#FF4488",href="bookvol10.4.pdf#nameddest=INMODGCD"]
 "PFECAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=PFECAT"]
@@ -161122,7 +161124,7 @@ ZeroDimensionalSolvePackage(R,ls,ls2): Exports == Implementation where
 <<package IPRNTPK InternalPrintPackage>>
 <<package IRURPK InternalRationalUnivariateRepresentationPackage>>
 <<package INTFRSP InterpolateFormsPackage>>
-<<package INTDIVP IntersectionDivisorPackage>>=
+<<package INTDIVP IntersectionDivisorPackage>>
 <<package IRREDFFX IrredPolyOverFiniteField>>
 <<package IRSN IrrRepSymNatPackage>>
 <<package INVLAPLA InverseLaplaceTransform>>
diff --git a/changelog b/changelog
index af91be4..45e6c46 100644
--- a/changelog
+++ b/changelog
@@ -1,3 +1,5 @@
+20110115 tpd src/axiom-website/patches.html 20110115.01.tpd.patch
+20110115 tpd books/bookvol10.4 fixup IntersectionDivisorPackage chunk
 20110110 tpd src/axiom-website/patches.html 20110110.01.tpd.patch
 20110110 tpd src/interp/Makefile move to lisp tangle
 20110110 tpd src/interp/nag-c02.lisp move to lisp tangle
diff --git a/src/axiom-website/patches.html b/src/axiom-website/patches.html
index e0fa8f2..a56d365 100644
--- a/src/axiom-website/patches.html
+++ b/src/axiom-website/patches.html
@@ -3343,5 +3343,7 @@ books/bookvol5 convert to lisp tangle<br/>
 *.lisp.pamphlet moving to lisp tangle<br/>
 <a href="patches/20110110.01.tpd.patch">20110110.01.tpd.patch</a>
 *.lisp.pamphlet moving to lisp tangle<br/>
+<a href="patches/20110115.01.tpd.patch">20110115.01.tpd.patch</a>
+books/bookvol10.4 fixup IntersectionDivisorPackage chunk
  </body>
 </html>