diff --git a/changelog b/changelog
index 297d3ee..35101d5 100644
--- a/changelog
+++ b/changelog
@@ -1,3 +1,5 @@
+20091005 tpd src/axiom-website/patches.html 20091005.02.tpd.patch
+20091005 tpd src/interp/i-funsel.lisp cleanup
 20091005 tpd src/axiom-website/patches.html 20091005.01.tpd.patch
 20091005 tpd src/interp/i-eval.lisp cleanup
 20091004 tpd src/axiom-website/patches.html 20091004.04.tpd.patch
diff --git a/src/axiom-website/patches.html b/src/axiom-website/patches.html
index 9fd7fd5..42dec8a 100644
--- a/src/axiom-website/patches.html
+++ b/src/axiom-website/patches.html
@@ -2103,5 +2103,7 @@ src/interp/i-output.lisp cleanup<br/>
 src/interp/i-intern.lisp cleanup<br/>
 <a href="patches/20091005.01.tpd.patch">20091005.01.tpd.patch</a>
 src/interp/i-eval.lisp cleanup<br/>
+<a href="patches/20091005.02.tpd.patch">20091005.02.tpd.patch</a>
+src/interp/i-funsel.lisp cleanup<br/>
  </body>
 </html>
diff --git a/src/interp/i-funsel.lisp.pamphlet b/src/interp/i-funsel.lisp.pamphlet
index fe2d913..8ad864f 100644
--- a/src/interp/i-funsel.lisp.pamphlet
+++ b/src/interp/i-funsel.lisp.pamphlet
@@ -6414,7 +6414,7 @@ the types A and B themselves are not sorted by preference.
 ;  (hasCaty(dom,cat,NIL) ^= 'failed)
 
 (defun |ofCategory| (dom cat)
- (let (|$Subst| |$hope| cats)
+ (let (|$Subst| |$hope|)
  (declare (special |$Subst| |$hope|))
   (cond
    ((identp dom) nil)