       [& {:keys [model placeholder width height status-icon? status status-tooltip disabled? class style]
           :as   args}]
       {:pre [(validate-args-macro typeahead-args-desc args "typeahead")]}
-      (let [{:keys [suggestions waiting? model suggestion-selected-index]} @state-atom]
+      (let [{:keys [suggestions waiting? model suggestion-selected-index]} @state-atom
+            width (or width "250px")]
         [v-box
          :width width
          :children

            [v-box
             :class "rc-typeahead-suggestions"
             :children [(when waiting?
                          [throbber :size :small :class "rc-typeahead-throbber"])
                        (for [[ i s ] (map vector (range) suggestions)
                              :let [selected? (= suggestion-selected-index i)]]
                          [box

                           :attr {:on-mouse-over #(swap! state-atom suggestion-select-set i)
                                  :on-mouse-down #(do (.preventDefault %) (swap! state-atom suggestion-select-choose))
                                  }])]])]]))))
