diff --git a/books/bookvol10.4.pamphlet b/books/bookvol10.4.pamphlet
index 315d833..c9179ec 100644
--- a/books/bookvol10.4.pamphlet
+++ b/books/bookvol10.4.pamphlet
@@ -139415,8 +139415,8 @@ StreamTranscendentalFunctions(Coef): Exports == Implementation where
exp z ==
empty? z => 1 :: ST
- (coef := frst z) = 0 => YS expre(1,#1,deriv z)
- TRANSFCN => YS expre(exp coef,#1,deriv z)
+ (coef := frst z) = 0 => YS(y +-> expre(1,y,deriv z))
+ TRANSFCN => YS(y +-> expre(exp coef,y,deriv z))
error concat("exp: ",TRCONST)
log z ==
@@ -139447,8 +139447,8 @@ StreamTranscendentalFunctions(Coef): Exports == Implementation where
sincos z ==
empty? z => [0 :: ST,1 :: ST]
l :=
- (coef := frst z) = 0 => YS(sincosre(0,1,#1,deriv z,-1),2)
- TRANSFCN => YS(sincosre(sin coef,cos coef,#1,deriv z,-1),2)
+ (coef := frst z) = 0 => YS(y +-> sincosre(0,1,y,deriv z,-1),2)
+ TRANSFCN => YS(y +-> sincosre(sin coef,cos coef,y,deriv z,-1),2)
error concat("sincos: ",TRCONST)
[first l,second l]
@@ -139472,8 +139472,8 @@ StreamTranscendentalFunctions(Coef): Exports == Implementation where
tan z ==
empty? z => 0 :: ST
- (coef := frst z) = 0 => YS tanre(0,#1,deriv z,1)
- TRANSFCN => YS tanre(tan coef,#1,deriv z,1)
+ (coef := frst z) = 0 => YS(y +-> tanre(0,y,deriv z,1))
+ TRANSFCN => YS(y +-> tanre(tan coef,y,deriv z,1))
error concat("tan: ",TRCONST)
cotre:(Coef,ST,ST) -> ST
@@ -139494,7 +139494,7 @@ StreamTranscendentalFunctions(Coef): Exports == Implementation where
cot z ==
empty? z => error "cot: cot(0) is undefined"
(coef := frst z) = 0 => error concat("cot: ",NPOWERS)
- TRANSFCN => YS cotre(cot coef,#1,deriv z)
+ TRANSFCN => YS(y +-> cotre(cot coef,y,deriv z))
error concat("cot: ",TRCONST)
sec z ==
@@ -139630,8 +139630,8 @@ StreamTranscendentalFunctions(Coef): Exports == Implementation where
sinhcosh z ==
empty? z => [0 :: ST,1 :: ST]
l :=
- (coef := frst z) = 0 => YS(sincosre(0,1,#1,deriv z,1),2)
- TRANSFCN => YS(sincosre(sinh coef,cosh coef,#1,deriv z,1),2)
+ (coef := frst z) = 0 => YS(y +-> sincosre(0,1,y,deriv z,1),2)
+ TRANSFCN => YS(y +-> sincosre(sinh coef,cosh coef,y,deriv z,1),2)
error concat("sinhcosh: ",TRCONST)
[first l,second l]
@@ -139640,8 +139640,8 @@ StreamTranscendentalFunctions(Coef): Exports == Implementation where
tanh z ==
empty? z => 0 :: ST
- (coef := frst z) = 0 => YS tanre(0,#1,deriv z,-1)
- TRANSFCN => YS tanre(tanh coef,#1,deriv z,-1)
+ (coef := frst z) = 0 => YS(y +-> tanre(0,y,deriv z,-1))
+ TRANSFCN => YS(y +-> tanre(tanh coef,y,deriv z,-1))
error concat("tanh: ",TRCONST)
coth z ==
diff --git a/changelog b/changelog
index 1c0b9c6..a993e45 100644
--- a/changelog
+++ b/changelog
@@ -1,3 +1,5 @@
+20090621 tpd src/axiom-website/patches.html 20090621.07.tpd.patch
+20090621 tpd books/bookvol10.4 STTF +-> conversion
20090621 tpd src/axiom-website/patches.html 20090621.06.tpd.patch
20090621 tpd books/bookvol10.4 STTAYLOR +-> conversion
20090621 tpd src/axiom-website/patches.html 20090621.05.tpd.patch
diff --git a/src/axiom-website/patches.html b/src/axiom-website/patches.html
index 19891bc..6bee9a0 100644
--- a/src/axiom-website/patches.html
+++ b/src/axiom-website/patches.html
@@ -1629,5 +1629,7 @@ bookvol10.4 STREAM3 +-> conversion
bookvol10.4 STINPROD +-> conversion
20090621.06.tpd.patch
bookvol10.4 STTAYLOR +-> conversion
+20090621.07.tpd.patch
+bookvol10.4 STTF +-> conversion