               
               (and (= person :1st) (= number :plur) ir-type)
               (str stem "issons")
-       
+
+              (and (= person :1st) (= number :plur) re-type)
+              (let [stem (string/replace stem #"d$" "")]
+                (str stem "ons"))
+              
               ;; <second person plural present>
 
               (and (= person :2nd) (= number :plur) er-type)

              (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))))))
           
           (and
            (= (get-in word '(:infl)) :futuro)
            (string? (get-in word '(:français))))

                                (throw (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)
                 re-type (re-find #"re$" infinitive)
                 stem (string/replace infinitive #"[iae]r$" "")
                 stem (if re-type
                        (string/replace infinitive #"re$" "")
                        stem)
                 last-stem-char-is-i (re-find #"ir$" infinitive)
                 last-stem-char-is-e (re-find #"er$" infinitive)
                 person (get-in word '(:agr :person))
