From 426582117c36eadf3418f1ac36366b08fdf5963a Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Wed, 13 Mar 2002 22:53:38 +0000
Subject: [PATCH] .

original commit: f24911554ea76b4221eb0aab49a2c9a084465c7c
---
 collects/net/sendurl.ss | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/collects/net/sendurl.ss b/collects/net/sendurl.ss
index 169097e4fe..155ec83ed5 100644
--- a/collects/net/sendurl.ss
+++ b/collects/net/sendurl.ss
@@ -6,9 +6,12 @@
   
   (provide send-url)
   
+  (define separate-by-default?
+    (get-preference 'new-browser-for-urls (lambda () #t)))
+
   ; send-url : str -> void
   (define send-url
-    (opt-lambda (str [separate-window? #t])
+    (opt-lambda (str [separate-window? separate-by-default?])
       (parameterize ([current-input-port null-input]
 		     [current-error-port null-output] ; comment out this line to see error messages
 		     [current-output-port null-output])