diff --git a/collects/browser/external.ss b/collects/browser/external.ss index 7e18c9dc7c..ca88a0118a 100644 --- a/collects/browser/external.ss +++ b/collects/browser/external.ss @@ -20,10 +20,8 @@ (fw:preferences:set-default 'external-browser - (let ([ll-pref (get-preference 'external-browser (lambda () #f))]) - (if (raw:browser-preference? ll-pref) - ll-pref - 'firefox)) + (let ([pref (get-preference 'external-browser (lambda () #f))]) + (and (raw:browser-preference? pref) pref)) raw:browser-preference?) (define http-proxy-preference 'plt:http-proxy)