diff --git a/collects/help/private/gui.ss b/collects/help/private/gui.ss index 971e428ec4..f7ebcb7d3f 100644 --- a/collects/help/private/gui.ss +++ b/collects/help/private/gui.ss @@ -178,7 +178,7 @@ url] [else #f])] [(preferences:get 'drscheme:help-desk:separate-browser) - (send-url url) + (send-url (url->string url)) #f] [else url])] [else url])) diff --git a/collects/net/sendurl.ss b/collects/net/sendurl.ss index 2687610371..bc25614f67 100644 --- a/collects/net/sendurl.ss +++ b/collects/net/sendurl.ss @@ -45,6 +45,9 @@ ; send-url : str [bool] -> void (define/kw (send-url url-str #:optional [separate-window? separate-by-default?]) + (define stupid-internal-define-syntax1 + (unless (string? url-str) + (error 'send-url "expected a string, got ~e" url-str))) (define external (external-browser)) (define stype (force systype)) (define preferred '|? ? ?|)