Fix special command dispatch return

diff --git a/empire.lisp b/empire.lisp
index 5b58812bd257662c8afed7eb4199c597771e1070..1f2aae423b6724f4d7a42cf171519c80d0cfd91f 100644 (file)
--- a/empire.lisp
+++ b/empire.lisp
@@ -261,7 +261,8 @@
 
 (defmethod special-command ((c connection) line)
   (cond ((string= line "xup") (special-xup c))
 
 (defmethod special-command ((c connection) line)
   (cond ((string= line "xup") (special-xup c))

-       (t (empire-web:data (session c) "Unknown special command"))))
+       (t (empire-web:data (session c) "Unknown special command")))
+  line)

 
 (defmethod command ((c connection) line)
   (cond ((special-command-p line) (special-command c (subseq line 1)))
 
 (defmethod command ((c connection) line)
   (cond ((special-command-p line) (special-command c (subseq line 1)))