diff --git a/collects/net/sendurl.ss b/collects/net/sendurl.ss index 08fbe267b0..75c309c50f 100644 --- a/collects/net/sendurl.ss +++ b/collects/net/sendurl.ss @@ -80,8 +80,10 @@ stype)])]) (void)) +(define osascript (delay (find-executable-path "osascript" #f))) (define (send-url/mac url-str) - (browser-process (format "osascript -e 'open location \"~a\"'" url-str))) + (browser-process (force osascript) "-e" + (format "open location \"~a\"" url-str))) (define (send-url/win url-str) (define (simple)