diff --git a/scheme/httpd/cgi-server.scm b/scheme/httpd/cgi-server.scm
index cc351fe..483824b 100644
--- a/scheme/httpd/cgi-server.scm
+++ b/scheme/httpd/cgi-server.scm
@@ -287,9 +287,9 @@
 		       (copy-inport->outport script-port out)))))
 
 (define (uri-has-protocol? loc)
-  (receive (proto path search frag)
-      (parse-uri loc)
-    (if proto #t #f)))
+  (receive (host port path query)
+      (parse-url loc)
+    (if host #t #f)))
 
 (define (extract-status-code-and-text status req)
   (with-fatal-error-handler*