diff --git a/lib/chibi/test.scm b/lib/chibi/test.scm
index e868c3bd..f58b6526 100644
--- a/lib/chibi/test.scm
+++ b/lib/chibi/test.scm
@@ -422,7 +422,7 @@
     (else (lambda (x) x))))
 
 (define (test-status-message status)
-  ((test-status-color status) status))
+  ((test-status-color status) (symbol->string status)))
 
 (define (test-status-code status)
   ((test-status-color status)