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<br/>
 bookvol10.4 INCRMAPS +-> conversion<br/>
 <a href="patches/20090604.02.tpd.patch">20090604.02.tpd.patch</a>
 bookvol10.4 INPRODPF +-> conversion<br/>
+<a href="patches/20090604.03.tpd.patch">20090604.03.tpd.patch</a>
+bookvol10.4 IALGFACT +-> conversion<br/>
  </body>
 </html>