XEmacs 21.4.9 "Informed Management".

[chise/xemacs-chise.git-] / tests / automated / test-harness.el

diff --git a/tests/automated/test-harness.el b/tests/automated/test-harness.el
index 8f9b5bd..e93046f 100644 (file)
--- a/tests/automated/test-harness.el
+++ b/tests/automated/test-harness.el
@@ -99,7 +99,7 @@ The output file's name is made by appending `c' to the end of FILENAME."
          (setq body (cons (read buffer) body)))
       (end-of-file nil)
       (error
-       (princ "Unexpected error %S reading forms from buffer\n" error-info)))
+       (princ (format "Unexpected error %S reading forms from buffer\n" error-info))))
     `(lambda ()
        (defvar passes)
        (defvar assertion-failures)