diff --git a/collects/net/sendurl.ss b/collects/net/sendurl.ss index 39dbc60386..0c9d0be2cd 100644 --- a/collects/net/sendurl.ss +++ b/collects/net/sendurl.ss @@ -57,8 +57,7 @@ [(procedure? external) (external url-str)] [(eq? stype 'macosx) (browser-process - (format "osascript -e 'open location \"~a\"'" - url-str))] + (format "open \"~a\"'" url-str))] [(eq? stype 'windows) (shell-execute #f url-str "" (current-directory) 'SW_SHOWNORMAL)] [(not (eq? stype 'unix)) @@ -77,7 +76,8 @@ => (lambda (exe) (browser-process* exe (if separate-window? "-w" "-x") url-str))] [(or (use-browser 'netscape) - (use-browser 'mozilla)) + (use-browser 'mozilla) + (use-browser 'firefox)) => (lambda (exe) ;; netscape's -remote returns with an error code, if no netscape is ;; around. start a new netscape in that case.