From b8aaed8f420b01b9d606127bfa56357ff6b47cd2 Mon Sep 17 00:00:00 2001
From: Paul Graunke <ptg@ccs.neu.edu>
Date: Fri, 20 Sep 2002 17:20:25 +0000
Subject: [PATCH] internal browser support

original commit: 5d0d8f1d417176b2ebb28b7f5435fc89783f7790
---
 collects/net/sendurl.ss | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/collects/net/sendurl.ss b/collects/net/sendurl.ss
index 201f0e0f3b..fcda095023 100644
--- a/collects/net/sendurl.ss
+++ b/collects/net/sendurl.ss
@@ -11,7 +11,7 @@
 
   ; : any -> bool
   (define (browser-preference? x)
-    (or (not x) (memq x unix-browser-list) (custom-browser? x)
+    (or (not x) (eq? 'plt x) (memq x unix-browser-list) (custom-browser? x)
         (procedure? x)))
 
   (define external-browser