diff --git a/collects/net/sendurl.ss b/collects/net/sendurl.ss
index 94422d6475..32ab1c44e0 100644
--- 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)