diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e23f4c19a85348439b48913d782aa4598d8a2c12..7f25ebb2e6e16a9c116ed01764c28d8f56708c51 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -67,6 +67,10 @@
 	(rst-uncomment-region, rst-font-lock-find-unindented-line-match)
 	(rst-font-lock-handle-adornment-matcher): Mark unused arguments.
 
+2014-03-18  Daniel Colascione  <dancol@dancol.org>
+
+	* startup.el (tty-handle-args): Remove debug message from 2007.
+
 2014-03-15  Juanma Barranquero  <lekktu@gmail.com>
 
 	* term/ns-win.el (x-command-line-resources): Rename from ns-... version,
diff --git a/lisp/startup.el b/lisp/startup.el
index d6d0ff9bd42ea5955e769b5319a18a5baf95af8d..129b54d974f4a8d16b42f4fcc9f1214ce1cf7db7 100644
--- a/lisp/startup.el
+++ b/lisp/startup.el
@@ -736,7 +736,6 @@ opening the first frame (e.g. open a connection to an X server).")
 (defun tty-handle-args (args)
   "Handle the X-like command-line arguments \"-fg\", \"-bg\", \"-name\", etc."
   (let (rest)
-    (message "%S" args)
     (while (and args
 		(not (equal (car args) "--")))
       (let* ((argi (pop args))