diff --git a/CHANGELOG.md b/CHANGELOG.md
index 6ec6937f..fc08f7e0 100644
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -11,6 +11,9 @@ this project uses date-based 'snapshot' version identifiers.
 - Add the `--show-saves` flag for `l3build check` to generate a list of
   `l3build save` commands to regenerate all failing tests
 
+### Changed
+- Copy TDS-style zip files to make dir
+
 ## [2021-05-06]
 
 ### Fixed
diff --git a/l3build-ctan.lua b/l3build-ctan.lua
index fd1491dd..6fc11b96 100644
--- a/l3build-ctan.lua
+++ b/l3build-ctan.lua
@@ -146,6 +146,7 @@ function ctan()
     dirzip(tdsdir, ctanpkg .. ".tds")
     if packtdszip then
       cp(ctanpkg .. ".tds.zip", tdsdir, ctandir)
+      cp(ctanpkg .. ".tds.zip", tdsdir, currentdir)
     end
     dirzip(ctandir, ctanzip)
     cp(ctanzip .. ".zip", ctandir, currentdir)