       (put-text-property
        start (point)
        'personality (emacspeak-maths-acss acss))
-      (when pause
-        (put-text-property
-         start (1+ start)
-         'pause pause)
-        (setf (emacspeak-maths-pause emacspeak-maths) nil)))))
+      (emacspeak-maths-apply-pause start))))
 
 (defun emacspeak-maths-handle-pause (ms)
   "Handle Pause value."

  (cond
   ((null (emacspeak-maths-pause emacspeak-maths))
    (setf (emacspeak-maths-pause emacspeak-maths) ms))
    ((numberp (emacspeak-maths-pause emacspeak-maths))
     (cl-incf (emacspeak-maths-pause emacspeak-maths) ms))
    (t (error "Invalid pause %s set earlier."
              (emacspeak-maths-pause emacspeak-maths)))))


(defun emacspeak-maths-handle-error (contents)
  "Display error message."

  client-buffer ; network socket stream
  client-process ; network connection
  output ; where output is displayed
  pause ; pending pause to add
  results
  )

