                   ;; set to true or false, while subjects in English, at present, lack this
                   ;; (though this key might be added to the English lexicon later at
                   ;;  some point).
-                  (let [target-structure (deserialize (read-string (:serialized target-expression)))
+                  (let [target-structure (json-read-str (.getValue (:structure target-expression)))
                         ;; TODO: allow queries that have refs - might be
                         ;; useful for modeling anaphora and binding.
                         source-language-keyword (keyword source-language)

                               :results)]
      (first (map (fn [result]
                    {:surface (:surface result)
                     :structure (deserialize (read-string (:serialized result)))})
                  results)))))

(defn contains [spec]

    (generate spec source-language target-language)))

(defn id2expression [id]
  (let [results (db/exec-raw [(str "SELECT struture
                                      FROM expression 
                                     WHERE id=?")
                              [id]]
                             :results)]
    (if (not (empty? results))
      (json-read-str (.getValue (:structure (first results)))))))

(defn generate-question-and-correct-set-dynamic [target-spec source-language source-locale
                                                 target-language target-locale
