diff --git a/changelog b/changelog
index 8aeb692..8935653 100644
--- a/changelog
+++ b/changelog
@@ -1,3 +1,5 @@
+20091009 tpd src/axiom-website/patches.html 20091009.05.tpd.patch
+20091009 tpd src/interp/clam.lisp cleanup
 20091009 tpd src/axiom-website/patches.html 20091009.04.tpd.patch
 20091009 tpd src/interp/clam.lisp cleanup
 20091009 tpd src/axiom-website/patches.html 20091009.03.tpd.patch
diff --git a/src/axiom-website/patches.html b/src/axiom-website/patches.html
index 6ae99d3..97a74fe 100644
--- a/src/axiom-website/patches.html
+++ b/src/axiom-website/patches.html
@@ -2141,7 +2141,9 @@ src/interp/database.lisp cleanup<br/>
 src/interp/compress.lisp cleanup<br/>
 <a href="patches/20091009.03.tpd.patch">20091009.03.tpd.patch</a>
 src/interp/clammed.lisp cleanup<br/>
-<a href="patches/20091009.03.tpd.patch">20091009.04.tpd.patch</a>
+<a href="patches/20091009.04.tpd.patch">20091009.04.tpd.patch</a>
+src/interp/clam.lisp cleanup<br/>
+<a href="patches/20091009.05.tpd.patch">20091009.05.tpd.patch</a>
 src/interp/clam.lisp cleanup<br/>
  </body>
 </html>
diff --git a/src/interp/clam.lisp.pamphlet b/src/interp/clam.lisp.pamphlet
index 60593b8..65340dc 100644
--- a/src/interp/clam.lisp.pamphlet
+++ b/src/interp/clam.lisp.pamphlet
@@ -971,12 +971,8 @@
 
 ;;;     ***       |clearConstructorAndLisplibCaches| REDEFINED
 
-(pprint '(DEFUN |clearConstructorAndLisplibCaches| NIL
- (PROGN (|clearClams|) (|clearConstructorCaches|))) 
-)
-
- (DEFUN |clearConstructorAndLisplibCaches| ()
-  (PROGN (|clearClams|) (|clearConstructorCaches|)))
+(DEFUN |clearConstructorAndLisplibCaches| ()
+ (PROGN (|clearClams|) (|clearConstructorCaches|)))
 
 ;clearCategoryCaches() ==
 ;  for name in allConstructors() repeat