           (migrate!)
           (add-certname! certname)
           (let [hash1 (add-catalog! catalog)]
-            (associate-catalog-with-certname! hash1 certname (java.util.Date.))
+            (associate-catalog-with-certname! hash1 certname (now))
             (dissociate-catalog-with-certname! hash1 certname))
           (garbage-collect!)
 

          (migrate!)
          (add-certname! certname)
          (let [hash1 (add-catalog! catalog)]
            (associate-catalog-with-certname! hash1 certname (java.util.Date.))
            (delete-catalog! hash1))

          ;; All the params should still be there

          (migrate!)
          (add-certname! certname)
          (let [hash (add-catalog! catalog)]
            (replace-catalog! catalog (now))

            (is (= (query-to-vec ["SELECT name FROM certnames"])
                   [{:name certname}]))
