      (get-in word [:espanol])
      
      :else
-     (throw (Exception. (str "get-string-1: future regular inflection: don't know what to do with input argument: " (strip-refs word)))))))
-
+     (let [message (str "get-string-1: future regular inflection: don't know what to do with input argument: " (strip-refs word))]
+       (if suppress-morph-exceptions
+         (do (log/warn message)
+             "??")
+         (throw (Exception. message)))))))
 
 (defn imperfect [word & [ {usted :usted
                            vosotros :vosotros

                           :er-type er-type
                           :vosotros vosotros
                           :ustedes ustedes}})]
       (throw (Exception. (str "get-string-1: imperfecto regular inflection: don't know what to do with input argument: " (strip-refs word))))))))

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

     (get-in word [:espanol])

     :else
     (let [message (str "get-string-1: present regular inflection: don't know what to do with input argument: " (strip-refs word))]
       (if suppress-morph-exceptions
         (do (log/warn message)
             "??")
         (throw (Exception. message)))))))

(declare irregular-preterito)
(declare regular-preterito)
