diff --git a/test-suite/tests/linker.test b/test-suite/tests/linker.test
index dcfac1b81..e7ecc291e 100644
--- a/test-suite/tests/linker.test
+++ b/test-suite/tests/linker.test
@@ -1,6 +1,6 @@
 ;;;; linker.test                               -*- scheme -*-
 ;;;;
-;;;; Copyright 2013 Free Software Foundation, Inc.
+;;;; Copyright 2013, 2019 Free Software Foundation, Inc.
 ;;;;
 ;;;; This library is free software; you can redistribute it and/or
 ;;;; modify it under the terms of the GNU Lesser General Public
@@ -27,7 +27,8 @@
   (let ((strtab (make-string-table)))
     (define (make-object index name bv relocs . kwargs)
       (let ((name-idx (string-table-intern! strtab (symbol->string name))))
-        (make-linker-object (apply make-elf-section
+        (make-linker-object (symbol->string name)
+                            (apply make-elf-section
                                    #:index index
                                    #:name name-idx
                                    #:size (bytevector-length bv)