diff --git a/src/clj/auto_ap/datomic/clients.clj b/src/clj/auto_ap/datomic/clients.clj
index 52b47bd9..de1bc5b8 100644
--- a/src/clj/auto_ap/datomic/clients.clj
+++ b/src/clj/auto_ap/datomic/clients.clj
@@ -100,10 +100,10 @@
 
 (defn code->id [code]
   (->> 
-    (dc/q (-> {:find  ['?e]
-               :in    ['$ '?code]
-               :where [['?e :client/code '?code ]]}
-              (dc/db conn) code))
+   (dc/q '[:find  ?e
+          :in    $ ?code
+          :where [?e :client/code ?code]]
+         (dc/db conn) code)
    (first)
    (first)))