 
                ::on-reset
                (do
-                 (dispatch-action ::clear-history)
+                 (dispatch-action ::clear)
                  (dispatch-action ::replay))
 
                ::on-toggle-visibility

           ::clear
           (-> model
               (assoc-in [::debugger :signal-events] nil)
               (assoc-in [::debugger :action-events] nil))

           ::toggle-visibility
           (update-in model [::debugger :visible?] not)

  (fn reconcile
    [model action]
    (match action
           [::record-signal-event signal-event]
           (-> model
               (update-in [::debugger :signal-events] concat [signal-event])
