        (if (= suppress-morph-exceptions true)
          (do (log/warn message)
              "??")
-         (throw (Exception. message)))))))
+         (exception message))))))
+

         (if (= suppress-morph-exceptions true)
           (do (log/warn message)
               "??")
           (throw (Exception. message))))))))

(defn present [word & [ {usted :usted
                         vosotros :vosotros

  (let [infinitive (reflexive-to-infinitive (get-in word [:espanol]))
        ar-type (try (re-find #"ar$" infinitive)
                     (catch Exception e
                       (exception (str "Can't regex-find on non-string: " infinitive " from word: " word))))
        er-type (re-find #"er$" infinitive)
        ir-type (re-find #"ir$" infinitive)
        stem (string/replace infinitive #"[iae]r$" "")
