fix reconnect

[eow] / web.lisp

diff --git a/web.lisp b/web.lisp
index 06f483b8a323637c385deb7e24584a3871eca4d4..556fbf4e24889ef15f4d553b62a0fa847d498f94 100644 (file)
--- a/web.lisp
+++ b/web.lisp
@@ -90,7 +90,8 @@
 
 (defun command-action ()
   (with-session
-      (empire:command (connection *empire-session*) (get-parameter "q"))))
+      (empire:command (connection *empire-session*) (get-parameter "q"))
+      "ok"))
 
 (defun root-page ()
   (with-session