Index: spiffy.scm
===================================================================
--- spiffy.scm  (revision 26763)
+++ spiffy.scm  (working copy)
@@ -475,8 +475,7 @@
             ((handle-exception) exn
              (with-output-to-string print-call-chain))
             #f)                         ; Do not keep going
-          (let* ((req-uri (request-uri (current-request)))
-                 (host (uri-host req-uri)))
+          (let ((host (uri-host (request-uri (current-request)))))
             (if (and host (uri-path-absolute? (request-uri (current-request))))
                 (let ((handler
                        (alist-ref host (vhost-map)
@@ -486,7 +485,8 @@
                                         (string-match h host))))))
                   (if handler
                       (handler (lambda ()
-                                (process-entry "" "" (cdr (uri-path req-uri)))))
+                                (let ((req-uri (request-uri (current-request))))
+                                   (process-entry "" "" (cdr (uri-path req-uri))))))
                       ;; Is this ok?
                       ((handle-not-found) (uri-path req-uri))))
                 ;; No host or non-absolute URI in the request is an error.