diff --git a/books/bookvol10.4.pamphlet b/books/bookvol10.4.pamphlet
index fcd24a2..f4b4a38 100644
--- a/books/bookvol10.4.pamphlet
+++ b/books/bookvol10.4.pamphlet
@@ -147588,7 +147588,7 @@ UnivariatePolynomialDivisionPackage(R,UP): Exports == Implementation where
         c case "failed" => return "failed"
         ee := e::N
         q := q+monomial(c::R,ee)
-        p1 := p1-c*mapExponents(#1+ee,p2)
+        p1 := p1-c*mapExponents(x +-> x+ee, p2)
       [q,p1]
 
 @
diff --git a/changelog b/changelog
index f6e6b4d..c109840 100644
--- a/changelog
+++ b/changelog
@@ -1,3 +1,5 @@
+20090625 tpd src/axiom-website/patches.html 20090625.02.tpd.patch
+20090625 tpd books/bookvol10.4 UPDIVP +-> conversion
 20090625 tpd src/axiom-website/patches.html 20090625.01.tpd.patch
 20090625 tpd books/bookvol10.4 UPCDEN +-> conversion
 20090624 tpd src/axiom-website/patches.html 20090624.07.tpd.patch
diff --git a/src/axiom-website/patches.html b/src/axiom-website/patches.html
index d19d5a9..d1c8a01 100644
--- a/src/axiom-website/patches.html
+++ b/src/axiom-website/patches.html
@@ -1667,5 +1667,7 @@ bookvol10.4 UNIFACT +-> conversion<br/>
 bookvol10.4 UFPS1 +-> conversion<br/>
 <a href="patches/20090625.01.tpd.patch">20090625.01.tpd.patch</a>
 bookvol10.4 UPCDEN +-> conversion<br/>
+<a href="patches/20090625.02.tpd.patch">20090625.02.tpd.patch</a>
+bookvol10.4 UPDIVP +-> conversion<br/>
  </body>
 </html>