diff --git a/books/bookvol10.4.pamphlet b/books/bookvol10.4.pamphlet
index c9179ec..7c23bcf 100644
--- a/books/bookvol10.4.pamphlet
+++ b/books/bookvol10.4.pamphlet
@@ -140603,7 +140603,7 @@ SubResultantPackage(R, UP): Exports == Implementation where
primitivePart(p, q) ==
rec := extendedEuclidean(leadingCoefficient p, q,
1)::Record(coef1:R, coef2:R)
- unitCanonical primitivePart map((rec.coef1 * #1) rem q, p)
+ unitCanonical primitivePart map(x1 +-> (rec.coef1 * x1) rem q, p)
subresultantVector(p1, p2) ==
F : UP -- auxiliary stuff !
diff --git a/changelog b/changelog
index e646df7..8475823 100644
--- a/changelog
+++ b/changelog
@@ -1,3 +1,5 @@
+20090621 tpd src/axiom-website/patches.html 20090621.09.tpd.patch
+20090621 tpd books/bookvol10.4 SUBRESP +-> conversion
20090621 tpd src/axiom-website/patches.html 20090621.08.tpd.patch
20090621 tpd src/input/Makefile.pamphlet add spline.input
20090621 tpd src/input/spline.input explain how to compute 2D splines
diff --git a/src/axiom-website/patches.html b/src/axiom-website/patches.html
index 6091af8..32e68d0 100644
--- a/src/axiom-website/patches.html
+++ b/src/axiom-website/patches.html
@@ -1633,5 +1633,7 @@ bookvol10.4 STTAYLOR +-> conversion
bookvol10.4 STTF +-> conversion
20090621.08.tpd.patch
spline.input explain how to compute 2D splines
+20090621.09.tpd.patch
+bookvol10.4 SUBRESP +-> conversion