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