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<br/>
 bookvol10.4 GOSPER +-> conversion<br/>
 <a href="patches/20090603.01.tpd.patch">20090603.01.tpd.patch</a>
 bookvol10.4 GBF +-> conversion<br/>
+<a href="patches/20090603.01.tpd.patch">20090603.02.tpd.patch</a>
+bookvol10.4 GBINTERN +-> conversion<br/>
  </body>
 </html>