From cbcda7303670a1963bdd89b9550a4631b51fe3cd Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Thu, 10 Oct 2002 15:03:04 +0000
Subject: [PATCH] .

original commit: 6791883b622fdb29a1e6cfee35aa5f014bf4b8bf
---
 collects/net/sendurl.ss | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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