diff --git a/books/bookvol10.4.pamphlet b/books/bookvol10.4.pamphlet
index 1f24f81..74a45e0 100644
--- a/books/bookvol10.4.pamphlet
+++ b/books/bookvol10.4.pamphlet
@@ -35524,7 +35524,7 @@ GroebnerInternalPackage(Dom, Expon, VarSet, Dpol): T == C where
D, D1: List(critPair)
--------- create D and Pol
- Pol1:= sort(degree #1 > degree #2, Pol)
+ Pol1:= sort((z1,z2) +-> degree z1 > degree z2, Pol)
basPols:= updatF(hMonic(first Pol1),virtualDegree(first Pol1),[])
Pol1:= rest(Pol1)
D:= nil
diff --git a/changelog b/changelog
index bc7207c..a79a96c 100644
--- a/changelog
+++ b/changelog
@@ -1,3 +1,5 @@
+20090603 tpd src/axiom-website/patches.html 20090603.02.tpd.patch
+20090603 tpd books/bookvol10.4 GBINTERN +-> conversion
20090603 tpd src/axiom-website/patches.html 20090603.01.tpd.patch
20090603 tpd books/bookvol10.4 GBF +-> conversion
20090602 tpd src/axiom-website/patches.html 20090602.04.tpd.patch
diff --git a/src/axiom-website/patches.html b/src/axiom-website/patches.html
index 2d9c6f4..f55caea 100644
--- a/src/axiom-website/patches.html
+++ b/src/axiom-website/patches.html
@@ -1427,5 +1427,7 @@ bookvol10.4 INTG0 +-> conversion
bookvol10.4 GOSPER +-> conversion
20090603.01.tpd.patch
bookvol10.4 GBF +-> conversion
+20090603.02.tpd.patch
+bookvol10.4 GBINTERN +-> conversion