diff --git a/src/main/logging.cl b/src/main/logging.cl
index f1816eb..b8a39a7 100644
--- a/src/main/logging.cl
+++ b/src/main/logging.cl
@@ -77,11 +77,13 @@
 
 (defmethod (setf server-logging-mixin-pathname) :before
     (new (instance server-logging-mixin))
+  (declare (ignore new))
   (when (slot-boundp instance 'stream)
     (close (server-logging-mixin-stream instance))))
 
 (defmethod (setf server-logging-mixin-pathname) :after
     (new (instance server-logging-mixin))
+  (declare (ignore new))
   (setf (server-logging-mixin-stream instance)
 	(open (server-logging-mixin-pathname instance)
 	      :direction :output
@@ -106,4 +108,5 @@
 		(let ((entity (http-message-entity response)))
 		  (if entity
 		      (or (entity-content-length entity) 0)
-		      0)))))))
+		      0)))
+	(force-output stream)))))