From ff2769ad955824eb2d63c56198a16c9833ce9024 Mon Sep 17 00:00:00 2001
From: Eli Barzilay <eli@racket-lang.org>
Date: Sun, 7 Jan 2007 20:14:16 +0000
Subject: [PATCH] typo

svn: r5247
---
 collects/net/url-unit.ss | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/collects/net/url-unit.ss b/collects/net/url-unit.ss
index 64b44f2214..437ae4606f 100644
--- a/collects/net/url-unit.ss
+++ b/collects/net/url-unit.ss
@@ -375,7 +375,7 @@
     (define (string->url str)
       (apply
        (lambda (scheme user host port path query fragment)
-         (when (and scheme (not (regexp-match? #rx"^[a-zA-Z][a-zA-Z0-9+-.]*$"
+         (when (and scheme (not (regexp-match? #rx"^[a-zA-Z][a-zA-Z0-9+.-]*$"
                                                scheme)))
            (url-error "Invalid URL string (bad scheme): ~e" str))
          ;; Windows => "file://xxx:/...." specifies a "xxx:/..." path