diff --git a/books/bookvol10.4.pamphlet b/books/bookvol10.4.pamphlet
index 2caf6c3..571ab29 100644
--- a/books/bookvol10.4.pamphlet
+++ b/books/bookvol10.4.pamphlet
@@ -115163,7 +115163,7 @@ NPCoef(BP,E,OV,R,P) : C == T where
[empty(),ldtcf,factlist,leadlist]$DetCoef
else detufact:=cons(uu::USP,detufact)
else
- ltodel:=sort(#1>#2,ltodel)
+ ltodel:=sort((n1:NNI,n2:NNI):Boolean +-> n1>n2,ltodel)
for i in ltodel repeat
detcoef:=delete(detcoef,i)
factlist:=delete(factlist,i)
@@ -115227,7 +115227,7 @@ NPCoef(BP,E,OV,R,P) : C == T where
lterase:=cons(k,lterase)
cterm.coefu:=(cterm.coefu - */[cc.pcoef for cc in celt])
if not empty? lterase then
- lterase:=sort(#1>#2,lterase)
+ lterase:=sort((n1:NNI,n2:NNI):Boolean +-> n1>n2,lterase)
for i in lterase repeat ctdet:=delete(ctdet,i)
cterm.detfacts:=ctdet
lterase:=empty()
diff --git a/changelog b/changelog
index 0d0321f..fdf6ba7 100644
--- a/changelog
+++ b/changelog
@@ -1,3 +1,5 @@
+20090609 tpd src/axiom-website/patches.html 20090609.01.tpd.patch
+20090609 tpd books/bookvol10.4 NPCOEF +-> conversion
20090608 tpd src/axiom-website/patches.html 20090608.09.tpd.patch
20090608 tpd books/bookvol10.4 NORMMA +-> conversion
20090608 tpd src/axiom-website/patches.html 20090608.08.tpd.patch
diff --git a/src/axiom-website/patches.html b/src/axiom-website/patches.html
index 04fd6a4..bc494c5 100644
--- a/src/axiom-website/patches.html
+++ b/src/axiom-website/patches.html
@@ -1513,5 +1513,7 @@ bookvol10.4 MFINFACT +-> conversion
bookvol10.4 MULTSQFR +-> conversion
20090608.09.tpd.patch
bookvol10.4 NORMMA +-> conversion
+20090609.01.tpd.patch
+bookvol10.4 NPCOEF +-> conversion