301.16

svn: r3040 original commit: d034f64dd2
2006-05-24 19:29:58 +00:00 · 2006-05-24 19:29:58 +00:00 · e0455bc329
commit e0455bc329
parent db3d3052bf
1 changed files with 1 additions and 1 deletions
--- a/collects/net/sendurl.ss
+++ b/collects/net/sendurl.ss
@ -30,7 +30,7 @@
       [(procedure? (external-browser))
 	((external-browser) url-str)]
       [(eq? (system-type) 'macos)
-	(if (regexp-match "Blue Box" (system-type #t))
+	(if (regexp-match "Blue Box" (system-type 'machine))
 	    ;; Classic inside OS X:
 	    (let loop ([l '("MSIE" "NAVG")])
 	      (if (null? l)