diff --git a/t/r7rs-tests.scm b/t/r7rs-tests.scm
index ec97e20c..362247eb 100644
--- a/t/r7rs-tests.scm
+++ b/t/r7rs-tests.scm
@@ -54,6 +54,9 @@
   (write (- counter failure-counter))
   (display " / ")
   (write counter)
+  (display " (")
+  (write (* (/ (- counter failure-counter) counter) 100))
+  (display "%)")
   (display " [PASS/TOTAL]")
   (display "")
   (newline))