diff --git a/books/bookvol10.4.pamphlet b/books/bookvol10.4.pamphlet
index 6bed1ed..07d8bed 100644
--- a/books/bookvol10.4.pamphlet
+++ b/books/bookvol10.4.pamphlet
@@ -41804,7 +41804,7 @@ InnerAlgFactor(F, UP, AlExt, AlPol): Exports == Implementation where
for sqterm in factors sqf]
p := definingPolynomial()$AlExt
- newp := map(#1::UP, p)$UPCF2(F, UP, UP, NUP)
+ newp := map(x +-> x::UP, p)$UPCF2(F, UP, UP, NUP)
pnorm q == resultant(convrt q, newp)
change q == map(coerce, q)$UPCF2(F,UP,AlExt,AlPol)
diff --git a/changelog b/changelog
index 22ff9f0..8b431b0 100644
--- a/changelog
+++ b/changelog
@@ -1,3 +1,5 @@
+20090604 tpd src/axiom-website/patches.html 20090604.03.tpd.patch
+20090604 tpd books/bookvol10.4 IALGFACT +-> conversion
20090604 tpd src/axiom-website/patches.html 20090604.02.tpd.patch
20090604 tpd books/bookvol10.4 INPRODPF +-> conversion
20090604 tpd src/axiom-website/patches.html 20090604.01.tpd.patch
diff --git a/src/axiom-website/patches.html b/src/axiom-website/patches.html
index 1c6cfd8..0307c85 100644
--- a/src/axiom-website/patches.html
+++ b/src/axiom-website/patches.html
@@ -1439,5 +1439,7 @@ bookvol10.4 IDECOMP +-> conversion
bookvol10.4 INCRMAPS +-> conversion
20090604.02.tpd.patch
bookvol10.4 INPRODPF +-> conversion
+20090604.03.tpd.patch
+bookvol10.4 IALGFACT +-> conversion