diff --git a/books/bookvol10.4.pamphlet b/books/bookvol10.4.pamphlet
index 4625cac..d2c2088 100644
--- a/books/bookvol10.4.pamphlet
+++ b/books/bookvol10.4.pamphlet
@@ -125934,12 +125934,12 @@ PolynomialSolveByFormulas(UP, F): PSFcat == PSFdef where
mapSolve(p, fn) ==
-- map := fn #1 replaced with line below
- locmap: F -> F := fn #1; map := id locmap
+ locmap: F -> F := x +-> fn x; map := id locmap
mapSolving? := true; maplist := []
slist := solve p
mapSolving? := false;
-- map := id #1 replaced with line below
- locmap := id #1; map := id locmap
+ locmap := x +-> id x; map := id locmap
[slist, maplist]
part(s: F): F ==
diff --git a/changelog b/changelog
index f34cd1e..1ad264b 100644
--- a/changelog
+++ b/changelog
@@ -1,3 +1,5 @@
+20090613 tpd src/axiom-website/patches.html 20090613.02.tpd.patch
+20090613 tpd books/bookvol10.4 SOLVEFOR +-> conversion
20090613 tpd src/axiom-website/patches.html 20090613.01.tpd.patch
20090613 tpd books/bookvol10.4 PGCD +-> conversion
20090612 tpd src/axiom-website/patches.html 20090612.06.tpd.patch
diff --git a/src/axiom-website/patches.html b/src/axiom-website/patches.html
index fb2b186..080dc06 100644
--- a/src/axiom-website/patches.html
+++ b/src/axiom-website/patches.html
@@ -1561,5 +1561,7 @@ bookvol10.4 PFBRU +-> conversion
bookvol10.4 POLY2 +-> conversion
20090613.01.tpd.patch
bookvol10.4 PGCD +-> conversion
+20090613.02.tpd.patch
+bookvol10.4 SOLVEFOR +-> conversion