diff --git a/lisp/progmodes/sql.el b/lisp/progmodes/sql.el
index 604f04a3d57..5273ba2bee1 100644
--- a/lisp/progmodes/sql.el
+++ b/lisp/progmodes/sql.el
@@ -3721,6 +3721,8 @@ prompts (`sql-output-newline-count' is positive).  In this case:
 	  (save-excursion
 	    ;; Set product context
 	    (with-current-buffer sql-buffer
+              ;; Make sure point is at EOB before sending input to SQL.
+              (goto-char (point-max))
               (when sql-debug-send
                 (message ">>SQL> %S" s))
               (insert "\n")