diff --git a/test-suite/tests/r6rs-ports.test b/test-suite/tests/r6rs-ports.test
index 46b2a4307..dbcc89a93 100644
--- a/test-suite/tests/r6rs-ports.test
+++ b/test-suite/tests/r6rs-ports.test
@@ -1,6 +1,6 @@
 ;;;; r6rs-ports.test --- R6RS I/O port tests.   -*- coding: utf-8; -*-
 ;;;;
-;;;; Copyright (C) 2009-2012,2013-2015,2018-2021,2023 Free Software Foundation, Inc.
+;;;; Copyright (C) 2009-2012,2013-2015,2018-2021,2023,2024-2024 Free Software Foundation, Inc.
 ;;;; Ludovic Courtès
 ;;;;
 ;;;; This library is free software; you can redistribute it and/or
@@ -38,7 +38,7 @@
                        body0 body ...)))))))
 
 (define (test-file)
-  (data-file-name "ports-test.tmp"))
+  (data-file-name "r6rs-ports-test.tmp"))
 
 ;; A input/output port that swallows all output, and produces just
 ;; spaces on input.  Reading and writing beyond `failure-position'