diff --git a/src/pseudoace/cli.clj b/src/pseudoace/cli.clj
index e0e31bd..f74a3b0 100644
--- a/src/pseudoace/cli.clj
+++ b/src/pseudoace/cli.clj
@@ -609,9 +609,9 @@
   "Creates a separate database containing homology data.
   URL should be the `main` database URL (e.g datomic:free://localhost:4334/WS274)."
   [& {:keys [url models-filename acedump-dir log-dir homol-log-dir verbose]
-      :or {verbose false}}]q
+      :or {verbose false}}]
   (let [homol-url (homol-db-url url)
-        now (to-date (ct/now)]
+        now (to-date (ct/now))]
     (create-helper-database :url url :models-filename models-filename :verbose verbose)
     (import-helper-edn-logs :url url :log-dir log-dir :verbose verbose)
     (create-homol-database :url homol-url :models-filename models-filename :verbose verbose)
diff --git a/src/pseudoace/ts_import.clj b/src/pseudoace/ts_import.clj
index 3e68069..464a3f5 100644
--- a/src/pseudoace/ts_import.clj
+++ b/src/pseudoace/ts_import.clj
@@ -825,7 +825,7 @@
   {nil (constantly "1977-01-01_01:01:01_nil")
    "original" (constantly "1970-01-02_01:01:01_original")
    "patch" (fn [] (str (format-ace-date (ctc/now)) "patch"))
-   "homology" #(str (format-ace-data (ctc/now) "homology"))})
+   "homology" #(str (format-ace-date (ctc/now) "homology"))})
 
 (defn clean-log-keys [log]
   (into {} (for [[k v] log]