diff --git a/books/bookvol10.4.pamphlet b/books/bookvol10.4.pamphlet
index e0beb91..582cb26 100644
--- a/books/bookvol10.4.pamphlet
+++ b/books/bookvol10.4.pamphlet
@@ -131129,12 +131129,12 @@ RationalFunctionFactor(UP): Exports == Implementation where
dummy := new()$SE
likuniv(p, x, d) ==
- map(#1 / d, univariate(p, x))$UPCF2(P,SparseUnivariatePolynomial P,
+ map(y +-> y/d, univariate(p, x))$UPCF2(P,SparseUnivariatePolynomial P,
RF, UP)
factor p ==
d := denom(q := elt(p,dummy::P :: RF))
- map(likuniv(#1,dummy,d),
+ map(x +-> likuniv(x,dummy,d),
factor(numer q)$MultivariateFactorize(SE,
IndexedExponents SE,Integer,P))$FactoredFunctions2(P, UP)
diff --git a/changelog b/changelog
index 765f82d..c4a278d 100644
--- a/changelog
+++ b/changelog
@@ -1,3 +1,5 @@
+20090619 tpd src/axiom-website/patches.html 20090619.08.tpd.patch
+20090619 tpd books/bookvol10.4 RFFACT +-> conversion
20090619 tpd src/axiom-website/patches.html 20090619.07.tpd.patch
20090619 tpd books/bookvol10.4 DEFINTRF +-> conversion
20090619 tpd src/axiom-website/patches.html 20090619.06.tpd.patch
diff --git a/src/axiom-website/patches.html b/src/axiom-website/patches.html
index 1f69e01..d5b16c3 100644
--- a/src/axiom-website/patches.html
+++ b/src/axiom-website/patches.html
@@ -1593,5 +1593,7 @@ bookvol10.4 QCMPACK +-> conversion
bookvol10.4 RF +-> conversion
20090619.07.tpd.patch
bookvol10.4 DEFINTRF +-> conversion
+20090619.08.tpd.patch
+bookvol10.4 RFFACT +-> conversion