diff --git a/books/bookvol10.4.pamphlet b/books/bookvol10.4.pamphlet
index 45abc0d..536df9d 100644
--- a/books/bookvol10.4.pamphlet
+++ b/books/bookvol10.4.pamphlet
@@ -40740,7 +40740,7 @@ HeuGcd (BP):C == T
     lintgcd(lval:List(Z)):Z ==
       empty? lval => 0$Z
       member?(1,lval) => 1$Z
-      lval:=sort(#1<#2,lval)
+      lval:=sort((z1,z2) +-> z1<z2,lval)
       val:=lval.first
       for val1 in lval.rest while ^(val=1) repeat val:=gcd(val,val1)
       val
diff --git a/changelog b/changelog
index ff36e74..a88b710 100644
--- a/changelog
+++ b/changelog
@@ -1,3 +1,5 @@
+20090603 tpd src/axiom-website/patches.html 20090603.04.tpd.patch
+20090603 tpd books/bookvol10.4 HEUGCD +-> conversion
 20090603 tpd src/axiom-website/patches.html 20090603.03.tpd.patch
 20090603 tpd books/bookvol10.4 GB +-> conversion
 20090603 tpd src/axiom-website/patches.html 20090603.02.tpd.patch
diff --git a/src/axiom-website/patches.html b/src/axiom-website/patches.html
index 46df7b8..824842b 100644
--- a/src/axiom-website/patches.html
+++ b/src/axiom-website/patches.html
@@ -1429,7 +1429,9 @@ bookvol10.4 GOSPER +-> conversion<br/>
 bookvol10.4 GBF +-> conversion<br/>
 <a href="patches/20090603.01.tpd.patch">20090603.02.tpd.patch</a>
 bookvol10.4 GBINTERN +-> conversion<br/>
-<a href="patches/20090603.01.tpd.patch">20090603.02.tpd.patch</a>
+<a href="patches/20090603.02.tpd.patch">20090603.02.tpd.patch</a>
 bookvol10.4 GB +-> conversion<br/>
+<a href="patches/20090603.03.tpd.patch">20090603.03.tpd.patch</a>
+bookvol10.4 HEUGCD +-> conversion<br/>
  </body>
 </html>