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
bookvol10.2 ELAGG +-> conversion
20090510.07.tpd.patch
bookvol10.3 D01AMFA +-> conversion
+20090510.08.tpd.patch
+bookvol10.4 INTPACK +-> conversion