diff --git a/changelog b/changelog
index 0a7f5d6..3f0c124 100644
--- a/changelog
+++ b/changelog
@@ -1,3 +1,5 @@
+20090927 tpd src/axiom-website/patches.html 20090927.01.tpd.patch
+20090927 tpd src/interp/sfsfun.lisp cleanup
 20090926 tpd src/axiom-website/patches.html 20090926.05.tpd.patch
 20090926 tpd src/interp/c-doc.lisp cleanup
 20090926 tpd src/axiom-website/patches.html 20090926.04.tpd.patch
diff --git a/src/axiom-website/patches.html b/src/axiom-website/patches.html
index 8fa5000..b383436 100644
--- a/src/axiom-website/patches.html
+++ b/src/axiom-website/patches.html
@@ -2049,5 +2049,7 @@ In process, not yet released<br/><br/>
 src/interp/intint.lisp cleanup<br/>
 <a href="patches/20090926.05.tpd.patch">20090926.05.tpd.patch</a>
 src/interp/c-doc.lisp cleanup<br/>
+<a href="patches/20090927.01.tpd.patch">20090927.01.tpd.patch</a>
+src/interp/sfsfun.lisp cleanup<br/>
  </body>
 </html>
diff --git a/src/interp/sfsfun.lisp.pamphlet b/src/interp/sfsfun.lisp.pamphlet
index 0a8fc10..41ef2fe 100644
--- a/src/interp/sfsfun.lisp.pamphlet
+++ b/src/interp/sfsfun.lisp.pamphlet
@@ -453,6 +453,7 @@ More fixes to BesselJ, T. Tsikas 24 Feb, 1995.
 ;        LOG(part1+part2)
 
 (DEFUN |logH| (|z1| |z2| |z|)
+  (declare (ignore |z|))
   (PROG (|part1| |part2| |i| |twopiz2| |piz2| |piz1bar| |z1bar|)
     (RETURN
       (PROGN
@@ -1894,6 +1895,7 @@ More fixes to BesselJ, T. Tsikas 24 Feb, 1995.
 ;        AREF(w,argm+1)
 
 (DEFUN |BesselIBackRecur| (|largev| |argm| |v| |z| |type| |n|)
+  (declare (ignore |largev|))
   (PROG (|v1| |pn| |ct1| |xm| |m| |m1| |val| |w| |m2| |z2| |start|
               |zero| |two| |one|)
     (RETURN