diff --git a/books/bookvol10.4.pamphlet b/books/bookvol10.4.pamphlet
index 7dd37ba..5df8087 100644
--- a/books/bookvol10.4.pamphlet
+++ b/books/bookvol10.4.pamphlet
@@ -2225,7 +2225,7 @@ AnnaNumericalIntegrationPackage(): with
   integrateConstantList(exp:EF,ras:LSOCF):Result ==
     c:OCF := ((retract(exp)@F)$EF)::OCF
     b := [hi(j)-lo(j) for j in ras]
-    c := c*reduce((#1)*(#2),b)
+    c := c*reduce((x,y) +-> x*y,b)
     a := coerce(c)$AnyFunctions1(OCF)
     text := coerce("Constant Function")$AnyFunctions1(ST)
     construct([[result@S,a],[method@S,text]])$Result
diff --git a/changelog b/changelog
index d56d7bc..691e6f8 100644
--- a/changelog
+++ b/changelog
@@ -1,3 +1,5 @@
+20090510 tpd src/axiom-website/patches.html 20090510.08.tpd.patch
+20090510 tpd books/bookvol10.4 INTPACK +-> conversion
 20090510 tpd src/axiom-website/patches.html 20090510.07.tpd.patch
 20090510 tpd books/bookvol10.3 D01AMFA +-> conversion
 20090510 tpd src/axiom-website/patches.html 20090510.06.tpd.patch
diff --git a/src/axiom-website/patches.html b/src/axiom-website/patches.html
index 0316288..8b0c2d5 100644
--- a/src/axiom-website/patches.html
+++ b/src/axiom-website/patches.html
@@ -1174,5 +1174,7 @@ bookvol10.3 D01ALFA +-> conversion<br/>
 bookvol10.2 ELAGG +-> conversion<br/>
 <a href="patches/20090510.07.tpd.patch">20090510.07.tpd.patch</a>
 bookvol10.3 D01AMFA +-> conversion<br/>
+<a href="patches/20090510.08.tpd.patch">20090510.08.tpd.patch</a>
+bookvol10.4 INTPACK +-> conversion<br/>
  </body>
 </html>