diff --git a/collects/web-server/parse-table.ss b/collects/web-server/parse-table.ss
index 58ace328d6..5cfc5502ea 100644
--- a/collects/web-server/parse-table.ss
+++ b/collects/web-server/parse-table.ss
@@ -26,7 +26,7 @@
          (parse-host default-host-table)
          (map (lambda (h)
                 (if (and (pair? h) (pair? (cdr h)) (null? (cddr h)))
-                    (cons (car h) (parse-host (cadr h)))
+                    (cons (car h) (parse-host (cdr h)))
                     (error 'parse-configuration-table "invalid virtual-host entry ~s" h)))
               virtual-host-table))
         (error 'parse-configuration-table "invalid configuration values ~s"