diff --git a/scsh/SPAN/SPAN.scm b/scsh/SPAN/SPAN.scm
index be9c712..c3486c3 100644
--- a/scsh/SPAN/SPAN.scm
+++ b/scsh/SPAN/SPAN.scm
@@ -361,7 +361,7 @@ Enter 'h' for help.")
                        (lambda (answer)
                          (set! SPAN-mirror-url answer)
                          (run (touch (string-append SPAN-dir "/mirror")))
-                         (let ((out (open-output-file (string-append SPAN-build-and-cache-dir "/mirror"))))
+                         (let ((out (open-output-file (string-append SPAN-dir "/mirror"))))
                            (write answer out))
                          #f)) answer)