diff --git a/tests/run-test-suite.in b/tests/run-test-suite.in
index 02b5556..54ac5df 100644
--- a/tests/run-test-suite.in
+++ b/tests/run-test-suite.in
@@ -198,7 +198,8 @@ output, and standard error as three values."
               (display-output stdout))
             (unless stderr-ok?
               (display "Expected stderr: ")
-              (display-output xstderr)
+              (display-output xstderr))
+            (unless (and stderr-ok? status-ok?)
               (display "Actual stderr: " )
               (display-output stderr))
             (format #t "Result: ~a~%" result)