          ;; get-spec will appoint some for you.
          (or (and (get-in base-spec [:synsem :agr :number])
                   base-spec)
-             {:synsem (first (shuffle verb-agreement))})
+             {:synsem (first (shuffle verb-agreement-alternatives))})
          
          ;; 3. You have the right to a root. If you do not have one,
          ;; get-spec will appoint one for you.

  "return a spec that is more specific than base-spec, specific enough to conjugate."
  [base-spec model]
  (log/debug (str "get-spec:base-spec:" base-spec))
  (let [retval
        (unifyc
         base-spec

         ;; Read 'em their rights:

    :aspect :progressive}
   {:tense :future}])

(defn preds [lexicon]
  (vec
   (set
