 ;;; Parse one complete chunk
                 (setq result (emacspeak-maths-read-output))
 ;;; Todo: reverse later depending on how we use it.
-                (push result (emacspeak-maths-results emacspeak-maths))
+                (setf (emacspeak-maths-results emacspeak-maths) result)
                 (skip-syntax-forward " >")
                 (delete-region start (point))
                 (setq start (point)))

   "Spoken Math"
   ("SPC" emacspeak-maths-enter "enter")
   ("a" emacspeak-maths-speak-alt "Alt Text")
   ("<up>" emacspeak-maths-up "Up")
   ("<down>" emacspeak-maths-down"down")
   ("<left>" emacspeak-maths-left "left")


(cl-loop
 for move in
 '("left" "right" "up" "down" "root")
 do
 (eval
  `(defun ,(intern (format "emacspeak-maths-%s" move)) ()
