 (defn get-concept-by-id-and-revision
   "Make a get to retrieve a concept by concept-id and revision."
   [concept-id revision-id]
-  (let [response (client/get (str "http://localhost:3001/concepts/" concept-id "/" revision-id)
+  (let [response (client/get (str "http://localhost:3000/concepts/" concept-id "/" revision-id)
                              {:accept :json
                               :throw-exceptions false})
         status (:status response)]

  "Make a post request to save a concept without JSON encoding the concept.  Returns a map with
  status, revision-id, and a list of error messages"
  [concept]
  (let [response (client/post "http://localhost:3001/concepts" 
                              {:body (cheshire/generate-string concept)
                               :body-encoding "UTF-8"
                               :content-type :json

(defn get-concept-by-id
  "Make a get to retrieve a concept by concept-id."
  [concept-id]
  (let [response (client/get (str "http://localhost:3000/concepts/" concept-id)
                             {:accept :json
                              :throw-exceptions false})
        status (:status response)]
