                             :synsem {:aux false
                                      :infl :present
                                      :cat :verb
-                                     :sem {:aspect :progressive
+                                     :sem {:aspect :simple
                                            :tense :present}}})
                    (unifyc c10
                            root-is-head

     :generate {:lexicon lexicon-for-generation} ;; filter out null subjects.
     :grammar grammar
     :lexicon lexicon
     :lexical-cache (atom (cache/fifo-cache-factory {} :threshold 1024))
     :morph fo
     :morph-ps fo-ps
     :morph-walk-tree (fn [tree]

                            :synsem {:aux false
                                     :infl :present
                                     :cat :verb
                                     :sem {:aspect :simple
                                           :tense :present}}})
                   (unifyc h21
                           {:rule "vp-infinitive"
