         debug (log/info "  finalizing..")]
 
     (->
-     ;; Create the model in stages; we need stages because some closures need a model
+     ;; Create the model in stages. We need to do this because some closures need a model
      ;; as a parameter, so they use as the model what precedes it in the list of
      ;; stages.
      {:index-fn (fn [spec] (lookup-spec spec indices index-lexicon-on-paths))

          [tree])
        with-defaults))))

;; TODO: factor out language-independent parts of this to babel.lexiconfn.
(defn model-plus-lexicon
  "create a language model for Italian with the supplied lexicon."


     ((fn [model]
        (merge model
               {:vocab2model
                (fn [vocab-items filter-lexicon-fn]
                  (model-with-vocab-items vocab-items filter-lexicon-fn model))

                :bolts
                (merge
                 (let [depth 2
                       spec
