diff --git a/books/bookvol10.4.pamphlet b/books/bookvol10.4.pamphlet
index 84d5db0..dbb2293 100644
--- a/books/bookvol10.4.pamphlet
+++ b/books/bookvol10.4.pamphlet
@@ -18043,7 +18043,7 @@ ElementaryFunctionStructurePackage(R,F): Exports == Implementation where
taneval(f, lk, k, v) ==
u := first argument k
fns := toU lk
- c := u - +/[qelt(v, i) * x for i in minIndex v .. maxIndex v for x in fns]
+ c := u - +/[qelt(v, i)*x for i in minIndex v .. maxIndex v for x in fns]
(rec := goodCoef(v, lk, "tan"::SY)) case "failed" =>
tannosimp(f, lk, k, v, fns, c)
v0 := retract(inv qelt(v, rec.index))@Z
@@ -18055,7 +18055,7 @@ ElementaryFunctionStructurePackage(R,F): Exports == Implementation where
[eval(f, [rec.ker], [g]), [rec.ker], [g]]
tannosimp(f, lk, k, v, fns, c) ==
- every?(is?(#1, "tan"::SY), lk) =>
+ every?(x+->is?(x, "tan"::SY), lk) =>
dd := (d := (cd := splitDenominator v).den)::F
newt := [tan(u / dd) for u in fns]$List(F)
newtan := [tanNa(t, d) for t in newt]$List(F)
@@ -18069,7 +18069,7 @@ ElementaryFunctionStructurePackage(R,F): Exports == Implementation where
[eval(f, [k], [h]), [k], [h]]
expnosimp(f, lk, k, v, fns, g) ==
- every?(is?(#1, "exp"::SY), lk) =>
+ every?(x+->is?(x, "exp"::SY), lk) =>
dd := (d := (cd := splitDenominator v).den)::F
newe := [exp(y / dd) for y in fns]$List(F)
newexp := [e ** d for e in newe]$List(F)
diff --git a/changelog b/changelog
index 74ba9a9..8cbfb07 100644
--- a/changelog
+++ b/changelog
@@ -1,3 +1,5 @@
+20090517 tpd src/axiom-website/patches.html 20090517.01.tpd.patch
+20090517 tpd books/bookvol10.4 EFSTRUC +-> conversion
20090516 tpd src/axiom-website/patches.html 20090516.05.tpd.patch
20090516 tpd books/bookvol10.4 INTEF +-> conversion
20090516 tpd src/axiom-website/patches.html 20090516.04.tpd.patch
diff --git a/src/axiom-website/patches.html b/src/axiom-website/patches.html
index 559e9a2..ba9d3b8 100644
--- a/src/axiom-website/patches.html
+++ b/src/axiom-website/patches.html
@@ -1328,5 +1328,7 @@ bookvol10.3 RADFF +-> conversion
bookvol10.3 RECLOS +-> conversion
20090516.05.tpd.patch
bookvol10.4 INTEF +-> conversion
+20090517.01.tpd.patch
+bookvol10.4 EFSTRUC +-> conversion