diff --git a/test-suite/lib.scm b/test-suite/lib.scm
index a0e08969f..8eced3a8d 100644
--- a/test-suite/lib.scm
+++ b/test-suite/lib.scm
@@ -295,7 +295,7 @@
 		 ((error) "ERROR")
 		 (else #f))))
     (if label
-	(display-line label ": " (format-test-name (cdr result)))
+	(display-line label ": " (format-test-name (cadr result)))
 	(error "(test-suite lib) FULL-REPORTER: unrecognized result: "
 	       result))))