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<br/>
 bookvol10.4 MULTSQFR +-> conversion<br/>
 <a href="patches/20090608.09.tpd.patch">20090608.09.tpd.patch</a>
 bookvol10.4 NORMMA +-> conversion<br/>
+<a href="patches/20090609.01.tpd.patch">20090609.01.tpd.patch</a>
+bookvol10.4 NPCOEF +-> conversion<br/>
  </body>
 </html>