       (insert "\f")
       (goto-char start)
       (display-buffer (emacspeak-maths-output emacspeak-maths))
-      (emacspeak-speak-region start end))))
-
+      (tts-with-punctuations 'some
+                             (emacspeak-speak-region start end)))))
+ 
 (defun emacspeak-maths-acss (acss-alist)
   "Return ACSS voice corresponding to acss-alist."
   (let-alist acss-alist

  "Send a LaTeX expression to Maths server."
  (interactive "sLaTeX: ")
  (declare (special emacspeak-maths))
  (process-send-string
   (emacspeak-maths-client-process emacspeak-maths)
   (format "enter: %s"latex)))

  (when (buffer-live-p (emacspeak-maths-client-buffer emacspeak-maths))
    (kill-buffer (emacspeak-maths-client-buffer emacspeak-maths))))

(defun emacspeak-maths-ensure-server ()
  "Start up Maths Server bridge if not already running."
  (declare (special emacspeak-maths))
  (unless (process-live-p (emacspeak-maths-server-process emacspeak-maths))
    (emacspeak-maths-bridge-start)))

(defun emacspeak-maths-restart ()
  "Restart Node math-server if running. Otherwise starts a new one."
  (interactive)
