diff --git a/lib/chibi/test.scm b/lib/chibi/test.scm
index 94fa8479..f6b134e0 100644
--- a/lib/chibi/test.scm
+++ b/lib/chibi/test.scm
@@ -322,9 +322,9 @@
    (assq-ref info 'gen-name)
    (let ((name
           (cond
-           ((assq-ref info 'source)
+           ((assq 'source info)
             => (lambda (src)
-                 (truncate-source src (- (current-column-width) 12))))
+                 (truncate-source (cdr src) (- (current-column-width) 12))))
            ((current-test-group)
             => (lambda (g)
                  (display "no source in: " (current-error-port))