r8351: updates

diff --git a/logger.lisp b/logger.lisp
index 277a7830dbc670f7a4b8a6ff853ccf336a5d6ad1..1382ef49e434480fb596d29794c809abac14f3d6 100644 (file)
--- a/logger.lisp
+++ b/logger.lisp
@@ -269,7 +269,7 @@
   (output-event msg :part (first (arguments msg))))
 
 (defun quit-hook (msg)
-  (output-event msg :quit (trailing-argument msg)))
+  (output-event msg :quit nil (trailing-argument msg)))
 
 (defun join-hook (msg)
   (output-event msg :join (trailing-argument msg)))