                                 :gender gender})] ;; prevents e.g. "Her name is John"
              (unify common
                     subject-verb-agreement
-                    {:intransitivize false
+                    {:sense 2
+                     ;; TODO: remove (in)transtivize (false|true): should not
+                     ;; need these explicit compiler directives; compilation
+                     ;; should be able to manage on its own
+                     :intransitivize false
                      :transitivize false
                      :synsem {:agr subj-agr
                               :sem {:aspect :progressive


                 (default ;; intransitive verbs' :obj is :unspec.
                  {:modal-with false
                   :synsem {:cat :verb
                            :subcat {:1 {:top :top}
                                     :2 '()}

           (let [pred (atom :top)
                 obj (atom :top)]
             (unify common
                    {:sense 3
                     :synsem {:cat :verb
                              :sem {:obj obj
                                    :reflexive false
                                    :pred pred
