--- url.scm.bak	2005-11-08 23:57:40.256281600 +0900
+++ url.scm	2005-11-09 00:07:04.818081600 +0900
@@ -38,11 +38,11 @@
   (export url? url-scheme url-user url-password url-host url-host url-port url-path url-typecode
 	  url->string url url-decode url-encode) )
 
-(define name-chars "[-A-Za-z0-9.+%]+")
-(define path-chars "[-A-Za-z0-9.~/+%]+")
+(define name-chars "[A-Za-z0-9---.+%]+")
+(define path-chars "[A-Za-z0-9---.~/+%]+")
 
-(when (memq #:pregexp ##sys#features)
-  (error "sorry - URL parsing is currently not available with pregexp") )
+;(when (memq #:pregexp ##sys#features)
+;  (error "sorry - URL parsing is currently not available with pregexp") )
 
 (define url-regex
   (regexp