fixed PR 8870

svn: r7096

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]))

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 '|? ? ?|)