diff --git a/books/bookvol10.4.pamphlet b/books/bookvol10.4.pamphlet
index 9da1de8..90d30e1 100644
--- a/books/bookvol10.4.pamphlet
+++ b/books/bookvol10.4.pamphlet
@@ -6005,7 +6005,7 @@ CharacteristicPolynomialInMonogenicalAlgebra(R : CommutativeRing,
     Pol ==> SparseUnivariatePolynomial
 
     import UnivariatePolynomialCategoryFunctions2(R, PolR, PolR, Pol(PolR))
-    XtoY(Q : PolR) : Pol(PolR) == map(monomial(#1, 0), Q)
+    XtoY(Q : PolR) : Pol(PolR) == map(x+->monomial(x, 0), Q)
 
     P : Pol(PolR) := XtoY(definingPolynomial()$E)
     X : Pol(PolR) := monomial(monomial(1, 1)$PolR, 0)
diff --git a/changelog b/changelog
index e745e5d..ba1a901 100644
--- a/changelog
+++ b/changelog
@@ -1,3 +1,5 @@
+20090511 tpd src/axiom-website/patches.html 20090511.06.tpd.patch
+20090511 tpd books/bookvol10.4 CPIMA +-> conversion
 20090511 tpd src/axiom-website/patches.html 20090511.05.tpd.patch
 20090511 tpd books/bookvol10.3 FDIV +-> conversion
 20090511 tpd src/axiom-website/patches.html 20090511.04.tpd.patch
diff --git a/src/axiom-website/patches.html b/src/axiom-website/patches.html
index d414c91..11ef29f 100644
--- a/src/axiom-website/patches.html
+++ b/src/axiom-website/patches.html
@@ -1223,6 +1223,8 @@ bookvol10.4 CHVAR +-> conversion<br/>
 <a href="patches/20090511.04.tpd.patch">20090511.04.tpd.patch</a>
 bookvol10.2 RCFIELD +-> conversion<br/>
 <a href="patches/20090511.05.tpd.patch">20090511.05.tpd.patch</a>
-bookvol10.5 FDIV +-> conversion<br/>
+bookvol10.3 FDIV +-> conversion<br/>
+<a href="patches/20090511.06.tpd.patch">20090511.06.tpd.patch</a>
+bookvol10.4 CPIMA +-> conversion<br/>
  </body>
 </html>