From: Gerd Flaig <gefla@gefla-mac-zrh>
Date: Fri, 2 Jan 2009 16:37:39 +0000 (+0100)
Subject: Fix special command dispatch return
X-Git-Url: http://git.pond.sub.org/?p=eow;a=commitdiff_plain;h=bb489e0d0e26e6e71b46f23427f55aac696cd538;hp=ccd3edf79e55da2df4a3e7fbf31add1bd250f354

Fix special command dispatch return
---

diff --git a/empire.lisp b/empire.lisp
index 5b58812..1f2aae4 100644
--- a/empire.lisp
+++ b/empire.lisp
@@ -261,7 +261,8 @@
 
 (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)))