Fix another typo.

Ignore-this: 60f15a39618e88509d6409e0c729f1b0

darcs-hash:7d5b30cab9d62b04d03c3213c1f85182ec611098

1 files changed, 2 insertions, 2 deletions

diff --git a/utils.lisp b/utils.lisp
index 087c9ce..e73b7e4 100644
--- a/utils.lisp
+++ b/utils.lisp
@@ -330,8 +330,8 @@ ELEMENT-TYPE as the stream's."
   #+clisp
     (when *if-modified-since*
       (let* ((date-recognisers (mapcar #'cybertiggyr-time::make-fmt-recognizer '("%A, %d-%B-%y %H:%M:%S GMT" "%A, %d %B %Y %H:%M:%S GMT" "%A %B %d %H:%M:%S %Y")))
-             (time (cybertiggyr-time:parse-time *if-modified-since* date-recognisers)))
-        (when (and (integerp time) (>= *if-modified-since* (compute-journal-last-modified-date)))
+             (requested-time (cybertiggyr-time:parse-time *if-modified-since* date-recognisers)))
+        (when (and (integerp time) (>= requested-time (compute-journal-last-modified-date)))
           (http-add-header "Status: 304 Not Modified")
           (http-send-headers)
           (ext:quit 0))))