                          (:grammar model))]
              (morph (binding [babel.generate/println? false
                               babel.generate/truncate? false
-                              babel.generate/index-fn (create-index-fn verb-set grammar)
+                              babel.generate/index-fn (create-index-fn grammar)
                               babel.generate/lexical-filter
                               (fn [lexeme] (= false (u/get-in lexeme [:italiano :exception] false)))
                               babel.generate/grammar grammar]

                      (for [[k vals] (:lexicon model)]
                        (let [filtered-vals
                              (filter
                               (fn [v]
                                 (or 
                                  (and (= :verb (u/get-in v [:synsem :cat]))
                                       (or (= true (u/get-in v [:synsem :aux]))
                                           (contains? verb-set
                                                      (u/get-in v [:italiano :italiano]))))
                                  (verbcoach-pronouns v)))
                               vals)]
                          (if (not (empty? filtered-vals))
                            [k filtered-vals]))))

          "vp-pronoun-nonphrasal"}

        create-index-fn
        (fn [grammar]
          (let [verbcoach-pronouns
                (fn [v]
                  (or
