(debug): Fix call to message.

diff --git a/lisp/emacs-lisp/debug.el b/lisp/emacs-lisp/debug.el
index 43e4d781a771fbaa5895ef597e5657bd9c2882ac..f62b0c4836e16a48a31edf2f6c8e68f9c28aa8bd 100644 (file)
--- a/lisp/emacs-lisp/debug.el
+++ b/lisp/emacs-lisp/debug.el
@@ -1,6 +1,6 @@
 ;;; debug.el --- debuggers and related commands for Emacs
 
-;; Copyright (C) 1985, 1986, 1994, 2001 Free Software Foundation, Inc.
+;; Copyright (C) 1985, 1986, 1994, 2001, 2003  Free Software Foundation, Inc.
 
 ;; Maintainer: FSF
 ;; Keywords: lisp, tools, maint
@@ -178,7 +178,7 @@ first will be printed into the backtrace buffer."
                      (delete-region middlestart (point)))
                    (insert "...\n"))
                  (goto-char (point-min))
-                 (message (buffer-string))
+                 (message "%s" (buffer-string))
                  (kill-emacs))
                (if (eq (car debugger-args) 'debug)
                    ;; Skip the frames for backtrace-debug, byte-code, and debug.