   [n]
   (when (and (pos? n) (redos?))
     (redo undo-list app-db redo-list)
-    (redo undo-explain-list app-explain redo-explain-list)
+    (redo-explain undo-explain-list app-explain redo-explain-list)
     (recur (dec n))))
 
 (handlers/register-base     ;; not a pure handler

(defn- undo
  [undos cur redos]
  (let [u @undos
        r (cons @cur @redos)]

    (.log js/console "in undo")
    (.log js/console cur)
    (.log js/console (undo-path-ks))
    (.log js/console (last u))
    (swap! cur assoc-in (undo-path-ks) (last u))
    (reset! redos r)
    (reset! undos (pop u))))


  [n]
  (when (and (pos? n) (undos?))
    (undo undo-list app-db redo-list)
    (undo-explain undo-explain-list app-explain redo-explain-list)
    (recur (dec n))))

(handlers/register-base     ;; not a pure handler
