From 11066aa53dbd1cfa9f998fc8770f496442bdd60e Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Mon, 29 Jul 2002 05:50:17 +0000
Subject: [PATCH] ...

original commit: cfa23802335d6008cfecf57406d9e1cb1ce9524f
---
 collects/net/sendurl.ss | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/collects/net/sendurl.ss b/collects/net/sendurl.ss
index 4d543432a0..899208f406 100644
--- a/collects/net/sendurl.ss
+++ b/collects/net/sendurl.ss
@@ -41,7 +41,8 @@
 		 (send-event "MACS" "GURL" "GURL" str))]
             [(or (eq? (system-type) 'macosx)
                  (equal? "ppc-macosxonx" (system-library-subpath)))
-             (system (format "osascript -e 'open location \"~a\"'" str))]
+             (system (format "osascript -e 'open location \"~a\"'"
+			     (regexp-replace* "%" str "%25")))]
             [(eq? (system-type) 'windows)
              (shell-execute #f str "" (current-directory) 'SW_SHOWNORMAL)]
             [(eq? (system-type) 'unix)