diff --git a/test/script-support.lisp b/test/script-support.lisp
index 4a7497581098e4944ad845108ac18cba93fb176f..1b440179d93e067638ad4547c722ed1c87ab09ea 100644
--- a/test/script-support.lisp
+++ b/test/script-support.lisp
@@ -385,6 +385,7 @@ is bound, write a message and exit on an error.  If
                    (finish-outputs*)
                    (unless *debug-asdf*
                      (ignore-errors
+		       (format *error-output* "~&Backtrace:~%")
                        (acall :print-condition-backtrace
                               c :count 69 :stream *error-output*))
                      (leave-test "Script failed" 1)))))