diff --git a/books/bookvol10.4.pamphlet b/books/bookvol10.4.pamphlet
index 15e50c8..3b35bfc 100644
--- a/books/bookvol10.4.pamphlet
+++ b/books/bookvol10.4.pamphlet
@@ -7124,9 +7124,9 @@ CommonDenominator(R, Q, A): Exports == Implementation where
       qlcm: (Q, Q) -> Q
  
       qlcm(a, b)          == lcm(numer a, numer b)::Q
-      commonDenominator l == numer reduce(qlcm, map(denom(#1)::Q, l), 1)
+      commonDenominator l == numer reduce(qlcm, map(x+->denom(x)::Q, l), 1)
     else
-      commonDenominator l == numer reduce("*", map(denom(#1)::Q, l), 1)
+      commonDenominator l == numer reduce("*", map(x+->denom(x)::Q, l), 1)
 
 @
 <<CDEN.dotabb>>=
diff --git a/changelog b/changelog
index cb2bf8a..2c93e64 100644
--- a/changelog
+++ b/changelog
@@ -1,3 +1,5 @@
+20090512 tpd src/axiom-website/patches.html 20090512.09.tpd.patch
+20090512 tpd books/bookvol10.4 CDEN +-> conversion
 20090512 tpd src/axiom-website/patches.html 20090512.08.tpd.patch
 20090512 tpd books/bookvol10.4 CDEN +-> conversion
 20090512 tpd src/axiom-website/patches.html 20090512.07.tpd.patch
diff --git a/src/axiom-website/patches.html b/src/axiom-website/patches.html
index 20dd613..ccd6dae 100644
--- a/src/axiom-website/patches.html
+++ b/src/axiom-website/patches.html
@@ -1268,5 +1268,7 @@ bookvol10.3 ISUPS +-> conversion<br/>
 bookvol10.3 INT +-> conversion<br/>
 <a href="patches/20090512.08.tpd.patch">20090512.08.tpd.patch</a>
 bookvol10.4 CDEN +-> conversion<br/>
+<a href="patches/20090512.09.tpd.patch">20090512.09.tpd.patch</a>
+bookvol10.4 CDEN +-> conversion<br/>
  </body>
 </html>