             ;; one (random) expression.
             ;; instead, we should use the target.surface as an input to a hash function; that is,
             ;; ORDER BY the value of the hash function on each row.
-            (let [results (db/exec-raw [(str "SELECT serialized,surface "
+            (let [results (db/exec-raw [(str "SELECT structure,surface "
                                              "  FROM expression "
                                              " WHERE active=true "
                                              "   AND language=? "

                  ;; 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)))
                        ;; TODO: allow queries that have refs - might be
                        ;; useful for modeling anaphora and binding.
                        source-language-keyword (keyword source-language)

      (log/debug (str "Number of expressions that that need to be translated: " (.size results)))
      (map (fn [result]
             {:surface (:surface result)
              :structure (json-read-str (.getValue (:structure result)))})
           results))))

(defn read-one [spec language]
