diff --git a/changelog b/changelog
index 77c5629..431709a 100644
--- a/changelog
+++ b/changelog
@@ -1,3 +1,5 @@
+20141225 tpd src/axiom-website/patches.html 20141225.04.tpd.patch
+20141225 tpd src/interp/br-con.lisp remove unused function
 20141225 tpd src/axiom-website/patches.html 20141225.03.tpd.patch
 20141225 tpd books/bookvol9 simplify logic in compDefineCapsuleFunction
 20141225 tpd src/axiom-website/patches.html 20141225.02.tpd.patch
diff --git a/patch b/patch
index 44a9bb1..530c17a 100644
--- a/patch
+++ b/patch
@@ -1 +1,2 @@
-books/bookvol9 simplify logic in compDefineCapsuleFunction
+src/interp/br-con.lisp remove unused function
+
diff --git a/src/axiom-website/patches.html b/src/axiom-website/patches.html
index 178d1c9..53441bd 100644
--- a/src/axiom-website/patches.html
+++ b/src/axiom-website/patches.html
@@ -4842,6 +4842,8 @@ buglist todo 336: getdatabase should handle special forms<br/>
 src/interp/vmlisp.lisp restore |function| macro<br/>
 <a href="patches/20141225.03.tpd.patch">20141225.03.tpd.patch</a>
 books/bookvol9 simplify logic in compDefineCapsuleFunction<br/>
+<a href="patches/20141225.04.tpd.patch">20141225.04.tpd.patch</a>
+src/interp/br-con.lisp remove unused function<br/>
  </body>
 </html>
 
diff --git a/src/interp/br-con.lisp.pamphlet b/src/interp/br-con.lisp.pamphlet
index 121356a..acf1f14 100644
--- a/src/interp/br-con.lisp.pamphlet
+++ b/src/interp/br-con.lisp.pamphlet
@@ -21969,36 +21969,6 @@ $dbKindAlist :=
          (|bcConform1,hd| |form1|) (|bcPred| |pred|))
         ('T (|bcConform1,hd| |form|))))))
 
-;--=======================================================================
-;--            Code for Private Libdbs
-;--=======================================================================
-;--------------> NEW DEFINITION (see br-data.boot.pamphlet)
-;purgeLocalLibdb() ==   --called by the user through a clear command?
-;  $newConstructorList := nil
-;  deleteFile '"libdb.text"
-;--moveFile(before,after) ==
-;--  $saturn => MOVE_-FILE(before, after)
-;--  RENAME_-FILE(before, after)
-;--  --obey STRCONC('"mv ", before, '" ", after)
-;-- deleted JHD/MCD, since already one in pathname.boot
-;--deleteFile fn ==
-;--  $saturn => DELETE_-FILE fn
-;--  obey STRCONC('"rm ",fn)
-;--=======================================================================
-;--            from daase.lisp
-;--=======================================================================
-;--library(args) ==
-;--  $newConlist: local := nil
-;--  LOCALDATABASE(args,$options)
-;--  extendLocalLibdb $newConlist
-;--  TERSYSCOMMAND()
-
-(DEFUN |purgeLocalLibdb| ()
-  (declare (special |$newConstructorList|))
-  (PROGN
-    (SPADLET |$newConstructorList| NIL)
-    (|deleteFile| "libdb.text")))
-
 \end{chunk}
 \eject
 \begin{thebibliography}{99}