(vhost-map `((".*" .
              ,(lambda (continue)
                 (let ((path (uri-path (request-uri (current-request)))))
                   (if (equal? path '(/ "egg-index"))
                       (redirect-to "/chicken-projects/egg-index-4.html")
                       (continue)))))))