(lambda (continue)
  (let ((path (uri-path (request-uri (current-request)))))
    (when (equal? "egg-index" (last path))
      (let ((eggs-uri
             (update-uri (request-uri (current-request))
                         path: '(/ "chicken-projects" "egg-index-4.html"))))
        (with-headers `((location ,eggs-uri))
          (lambda ()
            (send-status 302 "Found")))))
    (continue)))