diff --git a/books/bookvol10.4.pamphlet b/books/bookvol10.4.pamphlet
index b44ece7..f680df7 100644
--- a/books/bookvol10.4.pamphlet
+++ b/books/bookvol10.4.pamphlet
@@ -127255,7 +127255,7 @@ PrimitiveRatDE(F, UP, L, LQ): Exports == Implementation where
 
     diff := D()$L
 
-    UP2UP2 p                    == map(#1::UP, p)
+    UP2UP2 p                    == map((f1:F):UP +->f1::UP, p)
     indicialEquations(op:L)     == indicialEquations(op, leadingCoefficient op)
     indicialEquation(op:L, a:F) == indeq(monomial(1, 1) - a::UP, op)
 
diff --git a/changelog b/changelog
index 3eff9e9..c149838 100644
--- a/changelog
+++ b/changelog
@@ -1,3 +1,5 @@
+20090614 tpd src/axiom-website/patches.html 20090614.02.tpd.patch
+20090614 tpd books/bookvol10.4 ODEPRIM +-> conversion
 20090614 tpd src/axiom-website/patches.html 20090614.01.tpd.patch
 20090614 tpd books/bookvol10.4 PRIMELT +-> conversion
 20090613 tpd src/axiom-website/patches.html 20090613.03.tpd.patch
diff --git a/src/axiom-website/patches.html b/src/axiom-website/patches.html
index 753243f..3824d8a 100644
--- a/src/axiom-website/patches.html
+++ b/src/axiom-website/patches.html
@@ -1567,5 +1567,7 @@ bookvol10.4 SOLVEFOR +-> conversion<br/>
 bookvol10.4 POLY2UP +-> conversion<br/>
 <a href="patches/20090614.01.tpd.patch">20090614.01.tpd.patch</a>
 bookvol10.4 PRIMELT +-> conversion<br/>
+<a href="patches/20090614.02.tpd.patch">20090614.02.tpd.patch</a>
+bookvol10.4 ODEPRIM +-> conversion<br/>
  </body>
 </html>