--- registry.el~	2011-04-17 21:54:50.765625000 +0000
+++ registry.el	2011-04-18 06:50:37.642625000 +0000
@@ -131,6 +131,7 @@
          :type hash-table
          :documentation "The data hashtable.")))
 
+(eval-and-compile
 (defmethod initialize-instance :AFTER ((this registry-db) slots)
   "Set value of data slot of THIS after initialization."
   (with-slots (data tracker) this
@@ -327,6 +328,7 @@
       (setq candidates (cdr candidates)))
 
     (registry-delete db candidates nil)))
+)
 
 (ert-deftest registry-instantiation-test ()
   (should (registry-db "Testing")))