diff --git a/scsh/SPAN/SPAN.scm b/scsh/SPAN/SPAN.scm
index 83afb98..67b41d6 100644
--- a/scsh/SPAN/SPAN.scm
+++ b/scsh/SPAN/SPAN.scm
@@ -241,7 +241,10 @@ Enter 'h' for help.")
     (define answer "")
     (define SPAN-build-and-cache-dir SPAN-dir)
     (define SPAN-download-target-dir SPAN-dir)
-    (define SPAN-mirror-url "localhost")
+    (define SPAN-mirror-url (if (file-exists? (string-append SPAN-dir "/mirror"))
+
+                                (read (string-append SPAN-dir "/mirror"))
+                                "localhost"))
     ;; question 1
     ;;((lambda ()
        (cond