Bizarre issue with the typeahead component about re-com HOT 1 CLOSED

(defn unit-typeahead
  [{:keys [base-unit choices]}]
  (let [current-base-unit @(rf/subscribe [::subs/current-base-unit])
        base              (or current-base-unit base-unit)]
    [rc/typeahead
     :src (at)
     :suggestion-to-string get-label      ;; won't accept keyword
     :render-suggestion    get-label      ;; is documented to accept 2 args
     :change-on-blur?      true           ;; is documented to default to true
     :model {:id base :label (name base)} ;; is documented to be optional
     :data-source (partial suggest-from choices)
     :debounce-delay 200
     :on-change #(rf/dispatch [::events/base-unit-selected (:id %)])]))

(defn unit-amount []
  (let [current-n @(rf/subscribe [::subs/current-n])
        n         (or current-n 1)]
    [rc/input-text
     :src   (at)
     :model (str n)
     :on-change #(rf/dispatch [::events/n-selected (parse-double (str/trim %))])]))

[rc/h-box
    :src (at)
    :gap "1em"
    :children [[unit-typeahead quantity]
               [unit-amount]]]