add current version number to the version url

svn: r1978
2006-01-26 08:15:53 +00:00 · 2006-01-26 08:15:53 +00:00 · e6253449d2
commit e6253449d2
parent 98e601e72b
1 changed files with 1 additions and 1 deletions
--- a/collects/version/check.ss
+++ b/collects/version/check.ss
@ -49,7 +49,7 @@
      ;; Get server information, carefully
      (define version-info
        (parameterize ([current-input-port
-                        (try (url->port version-url)
+                        (try (url->port (format "~a?~a" version-url (version)))
                             "could not connect to website")])
          (try (read) "unexpected response from server")))
      (define (get key)