diff --git a/report.scm b/report.scm
index a2d355b..a257628 100644
--- a/report.scm
+++ b/report.scm
@@ -35,8 +35,7 @@
     (newline out)
     (for-each
       (lambda (test)
-        (let ((test-name (cdr (assoc 'name test)))
-              (name (symbol->string (cdr (assoc 'name implementation)))))
+        (let ((test-name (cdr (assoc 'name test))))
           (display (string-append "<tr>") out)
           (newline out)
           (display (string-append "<td>" test-name "</td>") out)
@@ -46,7 +45,7 @@
               (letrec* ((name (cdr (assoc 'name implementation)))
                         (command (cdr (assoc 'command implementation)))
                         (logfile (string-append "reports/"
-                                                name
+                                                (cdr (assoc 'name implementation))
                                                 "-"
                                                 test-name
                                                 ".log"))