(zone-call): Fix format string.

1 files changed, 2 insertions, 2 deletions

diff --git a/lisp/play/zone.el b/lisp/play/zone.el
index ca46c0a1562..abe9657a9d8 100644
--- a/lisp/play/zone.el
+++ b/lisp/play/zone.el
@@ -1,6 +1,6 @@
 ;;; zone.el --- idle display hacks
 
-;; Copyright (C) 2000, 2001 Free Software Foundation, Inc.
+;; Copyright (C) 2000, 2001, 2004 Free Software Foundation, Inc.
 
 ;; Author: Victor Zandy <zandy@cs.wisc.edu>
 ;; Maintainer: Thien-Thi Nguyen <ttn@gnu.org>
@@ -125,7 +125,7 @@ If the element is a function or a list of a function and a number,
                                (functionp (car elem))
                                (numberp (cadr elem)))
                           (apply 'zone-call elem))
-                         (t (error "bad `zone-call' elem:" elem))))
+                         (t (error "bad `zone-call' elem: %S" elem))))
                  program))))
 
 ;;;###autoload