diff --git a/lisp/progmodes/python.el b/lisp/progmodes/python.el
index 5a3dc4bb1fb..78b541d8a0e 100644
--- a/lisp/progmodes/python.el
+++ b/lisp/progmodes/python.el
@@ -1023,7 +1023,7 @@ commands.)"
   "Send STRING to inferior Python process."
   (interactive "sPython command: ")
   (let ((process (or process (python-shell-get-or-create-process))))
-    (when (called-interactively-p)
+    (when (called-interactively-p 'interactive)
       (message (format "Sent: %s..." string)))
     (comint-send-string process string)
     (when (or (not (string-match "\n$" string))