From 145f4efec6a39b4463bddace209cc928a96bdcea Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Wed, 21 Aug 2002 21:34:07 +0000
Subject: [PATCH] ..

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

diff --git a/collects/net/sendurl.ss b/collects/net/sendurl.ss
index 899208f406..691cd43639 100644
--- a/collects/net/sendurl.ss
+++ b/collects/net/sendurl.ss
@@ -41,6 +41,8 @@
 		 (send-event "MACS" "GURL" "GURL" str))]
             [(or (eq? (system-type) 'macosx)
                  (equal? "ppc-macosxonx" (system-library-subpath)))
+             (printf "str: ~s\n" str)
+             (printf  "osascript -e 'open location \"~a\"'" (regexp-replace* "%" str "%25"))
              (system (format "osascript -e 'open location \"~a\"'"
 			     (regexp-replace* "%" str "%25")))]
             [(eq? (system-type) 'windows)