--- a/contrib/gaphrase.el	Mon May 06 00:06:56 2019 +0300
+++ b/contrib/gaphrase.el	Tue May 07 00:37:09 2019 +0300
@@ -35,7 +35,7 @@
         (when (looking-at "## \\([1-9][0-9]*\\)")
           (setq beg (match-beginning 1)
                 end (match-end 1))
-          (setq num (string-to-int (buffer-substring beg end)))
+          (setq num (string-to-number (buffer-substring beg end)))
           (delete-region beg end)
           (goto-char beg)
           (setq num (1+ num))