     )])
 
 (defn aux-is-head-feature [phrase]
-  (cond (= :verb (get-in phrase '(:synsem :cat)))
+  (cond (= :verb (get-in phrase [:synsem :cat]))
         (unify-check phrase
                 (let [ref (atom :top)]
                   {:synsem {:aux ref}

                (let [propernoun (atom :top)
                      head-sem (atom :top)
                      mod-sem (atom {:subj head-sem})
                      rest-mod '()]
                  {:rule "nbar1"
                   :synsem {:reflexive false
                            :propernoun propernoun

                   :synsem {:agr {:number number-agreement}
                            :reflexive false
                            :cat :noun
                            :mod []
                            :propernoun propernoun
                            :sem {:number number-agreement}}
                   :head {:phrasal false
