diff --git a/lisp/main.lisp b/lisp/main.lisp
index 779cc8a..2538dc4 100644
--- a/lisp/main.lisp
+++ b/lisp/main.lisp
@@ -11,8 +11,9 @@
     (dotimes (i keysyms-len)
       (let ((key (make-key (cffi:mem-aref keysyms :uint32 i) modifiers)))
 	(log-string :trace (lambda (s)
-			     (print-key key)
-			     (format s ": ~A~%"
+			     (format s "Key Pressed: ")
+			     (print-key key s)
+			     (format s ": ~A"
 				     (xkb:keysym-get-name (mahogany/keyboard::key-keysym key)))))
 	(handle-key-event key seat)))))