From 7775f475eeef40e68af6e7485240240b0610b15a Mon Sep 17 00:00:00 2001
From: Eli Barzilay <eli@barzilay.org>
Date: Thu, 23 Jun 2011 18:19:21 -0400
Subject: [PATCH] Avoid unintended pun.

original commit: a3c21be7f6f1c83eba998d8ecad32d45c2889ef7
---
 collects/net/url-unit.rkt | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/collects/net/url-unit.rkt b/collects/net/url-unit.rkt
index be20aab..0ac0085 100644
--- a/collects/net/url-unit.rkt
+++ b/collects/net/url-unit.rkt
@@ -87,7 +87,7 @@
     (cond [(not scheme) 80]
           [(string=? scheme "http") 80]
           [(string=? scheme "https") 443]
-          [else (url-error "Scheme ~a not supported" (url-scheme url))])))
+          [else (url-error "URL scheme ~s not supported" scheme)])))
 
 (define current-connect-scheme (make-parameter "http"))