   (let [language (:language model)
         debug (log/debug (str "fill-language-by-spec: language: " language))
         debug (log/debug (str "fill-language-by-spec: spec: " spec))
-        json-spec (json/write-str spec)
+        json-spec (json/write-str (remove-top-values spec))
         current-count
         (:count
          ;; TODO: move this block to babel.reader/checking-for-existing-expressions

    [clojure.string :as string]
    [clojure.tools.logging :as log]
    [clojure.tools.namespace.repl :refer [refresh refresh-all]]
    [dag_unify.core :refer [fail? get-in merge strip-refs serialize unify ref?]]
    [korma.core :refer [exec-raw]]))

;; TODO: more fine-grained approach to dealing with exceptions:

                          AND language=?")
                       [(json/write-str spec) target-language]]
                      :results)))]
    (log/info (str "current-target-count for spec: " spec "=" current-target-count))
    (let [count (- count current-target-count)]
      (if (> current-target-count 0)
        (log/debug (str "There are already " current-target-count " expressions for: " spec)))
