diff --git a/test-r7rs.scm b/test-r7rs.scm
index fd80b6b..ede34ed 100644
--- a/test-r7rs.scm
+++ b/test-r7rs.scm
@@ -285,7 +285,8 @@
         (display "Output: ")
         (newline)
         (cat docker-build-out)
-        (newline))
+        (newline)
+        (exit 1))
       (let* ((build-exit-code (number->string (system build-cmd)))
              (run-exit-code (number->string (system run-cmd)))
              (testname (if (and (string? run-exit-code)