X-Git-Url: http://git.pond.sub.org/?p=eow;a=blobdiff_plain;f=web.lisp;h=f97b18da710f536d792f98d3ea321b59194ec59a;hp=135cdb4c424b27aaf366e4ced1a51d9caecebdb1;hb=ccd3edf79e55da2df4a3e7fbf31add1bd250f354;hpb=761774603f988ef58b11ab22c5bbf862819f9cef;ds=sidebyside

diff --git a/web.lisp b/web.lisp
index 135cdb4..f97b18d 100644
--- a/web.lisp
+++ b/web.lisp
@@ -83,7 +83,7 @@
 	     (pass (post-parameter "password"))
 	     (session (make-session user pass)))
 	(setf (session-value 'session) session)
-	(empire-log:info "User ~a logging in. Session ~a" user session)
+	(empire-log:info "~a: User ~a logging in." session user)
 	(redirect +root-url+))
     (usocket:connection-refused-error (e)
       (format nil "Connection error: ~a~%" e))))