--- headers.lisp	2010-08-23 04:33:01.000000000 +0900
+++ patch/headers.lisp	2010-11-25 00:09:00.000000000 +0900
@@ -204,10 +204,11 @@
     (maybe-write-to-header-stream "")
     ;; access log message
     (when-let (access-logger (acceptor-access-logger *acceptor*))
-      (funcall access-logger
-               :return-code return-code
-               :content content
-               :content-length (content-length*)))
+	      (when (not (no-log-p request))
+		(funcall access-logger
+			 :return-code return-code
+			 :content content
+			 :content-length (content-length*))))
     ;; now optional content
     (unless (or (null content) head-request-p)
       (write-sequence content *hunchentoot-stream*))
