diff --git a/books/bookvol10.3.pamphlet b/books/bookvol10.3.pamphlet
index fd5748c..077b407 100644
--- a/books/bookvol10.3.pamphlet
+++ b/books/bookvol10.3.pamphlet
@@ -76426,7 +76426,7 @@ PolynomialIdeals(F,Expon,VarSet,DPoly) : C == T
          #mvset > 1 => monvar:=concat(mvset,monvar)
          lv:=delete(lv,position(mvset.1,lv))
        empty? lv => 0
-       lsubset : List List VarSet := sort(#(#1)>#(#2),subset(lv))
+       lsubset : List List VarSet := sort((a,b)+->#a > #b ,subset(lv))
        for subs in lsubset repeat
          ldif:List VarSet:= lv
          for mvset in monvar while ldif ^=[] repeat
diff --git a/changelog b/changelog
index 81a269e..88a0374 100644
--- a/changelog
+++ b/changelog
@@ -1,3 +1,5 @@
+20090515 tpd src/axiom-website/patches.html 20090515.06.tpd.patch
+20090515 tpd books/bookvol10.3 IDEAL +-> conversion
 20090515 tpd src/axiom-website/patches.html 20090515.05.tpd.patch
 20090515 tpd books/bookvol10.4 SIGNEF +-> conversion
 20090515 tpd src/axiom-website/patches.html 20090515.04.tpd.patch
diff --git a/src/axiom-website/patches.html b/src/axiom-website/patches.html
index 61fb969..d2056f2 100644
--- a/src/axiom-website/patches.html
+++ b/src/axiom-website/patches.html
@@ -1314,5 +1314,7 @@ bookvol10.3 PLOT +-> conversion<br/>
 bookvol10.3 PLOT3D +-> conversion<br/>
 <a href="patches/20090515.05.tpd.patch">20090515.05.tpd.patch</a>
 bookvol10.4 SIGNEF +-> conversion<br/>
+<a href="patches/20090515.06.tpd.patch">20090515.06.tpd.patch</a>
+bookvol10.3 IDEAL +-> conversion<br/>
  </body>
 </html>