   (let [{:keys [name lead-link-name lead-link-email]} (::json-data context)]
     (try
       (dosync
-        (alter circles assoc name 
+        (alter anchor-circle assoc name 
                (g/anchor-circle name lead-link-name lead-link-email)))
-      {::circle-data (get @circles name) ::url-encoded-id (url-encode name)}
+      {::circle-data (get @anchor-circle name) ::url-encoded-id (url-encode name)}
       (catch IllegalArgumentException e
         ;(.printStackTrace e)
         {::create-failed (format "IllegalArgumentException: %s" (.getMessage e))}))))

  :allowed-methods [:get]
  :known-content-type? #(check-content-type % ["application/json"])
  :exists? (fn [_]
             (let [e (get @circles (url-decode id))]
               (if-not (nil? e)
                 {::circle e})))
  :available-media-types ["application/json"]


(defn reset-database []
  (dosync
    (ref-set anchor-circle {})))
