diff --git a/tests/gpgscm/lib.scm b/tests/gpgscm/lib.scm
index e23977a5e..fe28262dc 100644
--- a/tests/gpgscm/lib.scm
+++ b/tests/gpgscm/lib.scm
@@ -20,7 +20,8 @@
 (macro (assert form)
   `(if (not ,(cadr form))
        (begin
-	 (display (list "Assertion failed:" (quote ,(cadr form))))
+	 (display "Assertion failed: ")
+	 (write (quote ,(cadr form)))
 	 (newline)
 	 (exit 1))))
 (assert #t)