diff --git a/functional-tests/functional-tests.scm b/functional-tests/functional-tests.scm
index d3f4bb0..56758ba 100644
--- a/functional-tests/functional-tests.scm
+++ b/functional-tests/functional-tests.scm
@@ -237,10 +237,11 @@
                             (begin (inc! fail)
                                    (set! fail-keys (cons keys fail-keys))
                                    (dsp "fail"))))))
-      (fmt #t nl (dsp "There were failures:") nl)
-      (fmt-scenarios fail-keys
-                     (lambda (_)
-                       (dsp "fail")))
+      (unless (zero? fail)
+        (fmt #t nl (dsp "There were failures:") nl)
+        (fmt-scenarios fail-keys
+                       (lambda (_)
+                         (dsp "fail"))))
       (fmt #t (cat nl
                    (num pass)
                    (dsp "/")