 
 
            ;; be + propernoun, e.g. "My name is John"
-           (let [subj-agr (atom {:person :3rd})
+           (let [gender (atom :top)
+                 number (atom :top)
+                 subj-agr (atom {:person :3rd
+                                 :gender gender
+                                 :number number})
                  infl (atom :top)
                  the-real-subj (atom :top)
-                 the-obj (atom :top)]
+                 the-obj (atom {:number number
+                                :gender gender})] ;; prevents e.g. "Her name is John"
              (unify common
                     subject-verb-agreement
                     {:intransitivize false

                   :obj {:human true}}}}
   "her"
   [{:synsem {:cat :det
              :sem {:pred :lei}
              :def :possessive}}

    {:synsem {:cat :noun

   (map #(unify %
                {:synsem {:cat :det
                          :agr {:gender :masc}
                          :sem {:pred :noi
                                :number :plur}
                          :def :possessive}})
        [{:synsem {:agr {:number :sing}}}
         {:synsem {:agr {:number :plur}}}])
