diff --git a/collects/net/sendurl.ss b/collects/net/sendurl.ss index fcda095023..d2af4d9fd7 100644 --- a/collects/net/sendurl.ss +++ b/collects/net/sendurl.ss @@ -16,7 +16,7 @@ (define external-browser (make-parameter - (get-preference 'external-browser (lambda () #f)) + #f ; #f means "consult the preferences file" (lambda (x) (if (browser-preference? x) x @@ -64,7 +64,7 @@ [(eq? (system-type) 'windows) (shell-execute #f url-str "" (current-directory) 'SW_SHOWNORMAL)] [(eq? (system-type) 'unix) - (let ([preferred (external-browser)]) + (let ([preferred (or (external-browser) (get-preference 'external-browser))]) (cond [(use-browser 'opera preferred) =>