fixed url-change related bug

svn: r1759
2006-01-04 00:38:00 +00:00 · 2006-01-04 00:38:00 +00:00 · b22f27d21f
commit b22f27d21f
parent f90eb12e24
1 changed files with 4 additions and 7 deletions
--- a/collects/help/bug-report.ss
+++ b/collects/help/bug-report.ss
@ -352,13 +352,10 @@
    ;; initiates sending the bug report and switches the GUI's mode
    (define (send-bug-report)
      (letrec ([query (get-query)]
-               [url (make-url "http"
-                              #f
-                              bug-www-server
-                              bug-www-server-port
-                              (list "cgi-bin" "bug-report")
-                              '() ;query
-                              #f)]
+               [url
+                (string->url (format "http://~a:~a/cgi-bin/bug-report"
+                                     bug-www-server
+                                     bug-www-server-port))]
               [post-data 
                (parameterize ([current-alist-separator-mode 'amp])
                  (string->bytes/utf-8 (alist->form-urlencoded query)))]