         (is (= 2
                (inc (:revision-id var1-v1))
                (:revision-id var1-v2))))
-      (testing (str "retrieval by variable concept-id and revision-id returns "
+      (let [response (search/retrieve-concept
+                     (:concept-id var1-v1)
+                     nil
+                     {:accept mt/any
+                      :headers {transmit-config/token-header user1-token}})
+            response-v1 (search/retrieve-concept
+                         (:concept-id var1-v1)
+                         1
+                         {:accept mt/any
+                          :headers {transmit-config/token-header user1-token}})
+            response-v2 (search/retrieve-concept
+                         (:concept-id var1-v1)
+                         2
+                         {:accept mt/any
+                          :headers {transmit-config/token-header user1-token}})]
+          (testing "retrieval by variable concept-id returns the latest revision."
+            (is (= var1-name-new
+                   (:Name (json/parse-string (:body response) true)))))
+          (testing (str "retrieval by variable concept-id and revision-id returns "
                     "the specified variable")
-        (let [response-v1 (search/retrieve-concept
-                           (:concept-id var1-v1)
-                           1
-                           {:accept mt/any
-                            :headers {transmit-config/token-header user1-token}})
-              response-v2 (search/retrieve-concept
-                           (:concept-id var1-v1)
-                           2
-                           {:accept mt/any
-                            :headers {transmit-config/token-header user1-token}})]
-          (is (= var1-name
-                 (:Name (json/parse-string (:body response-v1) true))))
-          (is (= var1-name-new
-                 (:Name (json/parse-string (:body response-v2) true)))))))
+            (is (= var1-name
+                   (:Name (json/parse-string (:body response-v1) true))))
+            (is (= var1-name-new
+                   (:Name (json/parse-string (:body response-v2) true)))))))
     (testing "retrieval by variable concept-id and incorrect revision-id returns error"
       (let [no-rev 10000
             {:keys [status errors]} (search/get-search-failure-xml-data

                             "does not exist.")
                        (:concept-id var1-v1)
                        no-rev)]
               errors))))))

;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(deftest retrieve-variable-by-concept-id-any-accept-header
  (let [var1-name "variable1"
        var1-v1 (variable/ingest-variable-with-attrs {:Name var1-name})
        del-var (variable/ingest-variable-with-attrs {:Name "deleted-variable"})
