diff --git a/changelog b/changelog
index 11eac3a..69951e1 100644
--- a/changelog
+++ b/changelog
@@ -1,3 +1,5 @@
+20141225 tpd src/axiom-website/patches.html 20141225.02.tpd.patch
+20141225 tpd src/interp/vmlisp.lisp restore |function| macro
20141225 tpd src/axiom-website/patches.html 20141225.01.tpd.patch
20141225 tpd buglist todo 336: getdatabase should handle special forms
20141223 tpd src/axiom-website/patches.html 20141223.01.tpd.patch
diff --git a/patch b/patch
index dcb8f05..29b0380 100644
--- a/patch
+++ b/patch
@@ -1,10 +1 @@
-buglist todo 336: getdatabase should handle special forms
-
-This code should not exist. Fix getdatabase to return the right answer.
-
- ((BOOT-EQUAL name '|Union|) '(|Union| (|:| |a| A) (|:| |b| B)))
- ((BOOT-EQUAL name '|UntaggedUnion|) '(|Union| A B))
- ((BOOT-EQUAL name '|Record|) '(|Record| (|:| |a| A) (|:| |b| B)))
- ((BOOT-EQUAL name '|Mapping|) '(|Mapping| T S))
- ((BOOT-EQUAL name '|Enumeration|) '(|Enumeration| |a| |b|))
- (t (GETDATABASE name 'CONSTRUCTORFORM))))
+src/interp/vmlisp.lisp restore |function| macro
diff --git a/src/axiom-website/patches.html b/src/axiom-website/patches.html
index 4c0af97..14b3ce2 100644
--- a/src/axiom-website/patches.html
+++ b/src/axiom-website/patches.html
@@ -4838,6 +4838,8 @@ src/interp/vmlisp.lisp remove |function|
projects update
20141225.01.tpd.patch
buglist todo 336: getdatabase should handle special forms
+20141225.02.tpd.patch
+src/interp/vmlisp.lisp restore |function| macro