From b22f27d21fc658ac5d0b6b53e889461d5f928ff8 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Wed, 4 Jan 2006 00:38:00 +0000 Subject: [PATCH] fixed url-change related bug svn: r1759 --- collects/help/bug-report.ss | 11 ++++------- 1 file changed, 4 insertions(+), 7 deletions(-) diff --git a/collects/help/bug-report.ss b/collects/help/bug-report.ss index f2186d0223..749e7a0007 100644 --- 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)))]