      (get-in word [:français])
 
      :else
-     (throw (Exception. (str "get-string: present regular inflection: don't know what to do with input argument: "
-                             (strip-refs word)
-                             " (er-type: " er-type "; ir-type: " ir-type "; re-type: " re-type))))))
+     (exception (str "get-string: present regular inflection: don't know what to do with input argument: "
+                     (strip-refs word)
+                     " (er-type: " er-type "; ir-type: " ir-type "; re-type: " re-type)))))
 
 (defn passe-compose [word]
   (let [infinitive (reflexive-to-infinitive (get-in word '(:français)))]

  (let [infinitive (reflexive-to-infinitive (get-in word [:français]))
        ar-type (try (re-find #"ar$" infinitive)
                     (catch Exception e
                       (throw (Exception. (str "Can't regex-find on non-string: " infinitive " from word: " word)))))
        er-type (re-find #"[eé]r$" infinitive)
        ir-type (re-find #"ir$" infinitive)
        re-type (re-find #"re$" infinitive)

     (let [message (str "get-string: future regular inflection: don't know what to do with input argument: " (strip-refs word))]
       (if (= true suppress-incomplete-morphology-errors)
         (do (log/warn message)
             (exception message)))))))

(defn imperfect [word]           
  (let [infinitive (reflexive-to-infinitive (get-in word [:français]))
        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 (if (get-in word [:imperfect-stem])
