                                                 :sem {:tense :past
                                                       :aspect :progressive}
                                                 :subcat '()}}
-                                      small)))]
+                                      :model small)))]
     (is (= do-this-many
            (count (map-fn (fn [expr]
                             (let [fo (fo expr)

                                 :sem {:spec {:def :def} 
                                       :mod {:pred :difficile}
                                       :number :sing
                                       :pred :donna}}} 
                       np-grammar)]
    (is (or (= (fo expr) "la donna difficile")
            (= (fo expr) "la difficile donna")))
    (is (not (empty? (reduce concat (map

                                        ;; generic spec to something more specific
                                        ;; if this test fails and you want to investigate
                                        ;; why.
                                        :model np-grammar)))]
    (is (= do-this-many
           (count (map-fn (fn [expr] 
                            (let [fo (fo expr)
