   (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

                       WHERE structure @> ?::jsonb
                         AND active=true
                         AND language=?"
                       [(json/write-str spec) language]]
                      :results)))]
    (log/debug (str "current-count for spec: " spec "=" current-count))
    (let [count (- count current-count)]
      (if (> current-count 0)
        (log/debug (str "There are already " current-count " expressions for: " spec)))

                          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)))
