diff --git a/books/bookvol10.2.pamphlet b/books/bookvol10.2.pamphlet
index d6d1a66..c72b565 100644
--- a/books/bookvol10.2.pamphlet
+++ b/books/bookvol10.2.pamphlet
@@ -13668,11 +13668,13 @@ PolynomialSetCategory(R:Ring, E:OrderedAbelianMonoidSup,_
variables1(lp:List(P)):(List VarSet) ==
lvars : List(List(VarSet)) := [variables(p)$P for p in lp]
- sort(#1 > #2, removeDuplicates(concat(lvars)$List(VarSet)))
+ sort((z1:VarSet,z2:VarSet):Boolean +-> z1 > z2,
+ removeDuplicates(concat(lvars)$List(VarSet)))
variables2(lp:List(P)):(List VarSet) ==
lvars : List(VarSet) := [mvar(p)$P for p in lp]
- sort(#1 > #2, removeDuplicates(lvars)$List(VarSet))
+ sort((z1:VarSet,z2:VarSet):Boolean +-> z1 > z2,
+ removeDuplicates(lvars)$List(VarSet))
variables (ps:$) ==
variables1(elements(ps))
@@ -13752,7 +13754,7 @@ PolynomialSetCategory(R:Ring, E:OrderedAbelianMonoidSup,_
lp := remove(zero?, lp)
empty? lp => true
any? (ground?, lp) => false
- lp := sort(mvar(#1)$P > mvar(#2)$P, lp)
+ lp := sort((z1:P,z2:P):Boolean +-> mvar(z1)$P > mvar(z2)$P, lp)
p,q : P
p := first lp
lp := rest lp
diff --git a/changelog b/changelog
index 8f1cdec..6b0550d 100644
--- a/changelog
+++ b/changelog
@@ -1,3 +1,5 @@
+20090509 tpd src/axiom-website/patches.html 20090509.07.tpd.patch
+20090509 tpd books/bookvol10.2 PSETCAT +-> conversion
20090509 tpd src/axiom-website/patches.html 20090509.06.tpd.patch
20090509 tpd books/bookvol10.3 BOP +-> conversion
20090509 tpd src/axiom-website/patches.html 20090509.05.tpd.patch
diff --git a/src/axiom-website/patches.html b/src/axiom-website/patches.html
index 1468e09..03a4289 100644
--- a/src/axiom-website/patches.html
+++ b/src/axiom-website/patches.html
@@ -1144,5 +1144,7 @@ bookvol10.2 MATCAT +-> conversion
bookvol10.2 MATCAT +-> conversion (missed one)
20090509.06.tpd.patch
bookvol10.3 BOP +-> conversion
+20090509.07.tpd.patch
+bookvol10.2 PSETCAT +-> conversion