diff --git a/module/web/http.scm b/module/web/http.scm index 41e429ce3..1f208f44e 100644 --- a/module/web/http.scm +++ b/module/web/http.scm @@ -1118,7 +1118,7 @@ not have to have a scheme or host name. The result is a URI object." (bad-request "Missing Request-URI")) ((string= str "*" start end) #f) - ((eq? (string-ref str start) #\/) + ((eqv? (string-ref str start) #\/) (let* ((q (string-index str #\? start end)) (f (string-index str #\# start end)) (q (and q (or (not f) (< q f)) q)))