diff --git a/source/clog-connection.lisp b/source/clog-connection.lisp
index 292e62e..307180f 100644
--- a/source/clog-connection.lisp
+++ b/source/clog-connection.lisp
@@ -359,7 +359,7 @@ the default answer. (Private)"
                                (handler-case
                                    (handle-close-connection ws)
                                  (t (c)
-                                   (format t "Condition caught in clog-server :message - ~A.~&" c)
+                                   (format t "Condition caught in clog-server :close - ~A.~&" c)
                                    (values 0 c)))))
         (lambda (responder)
           (declare (ignore responder))