From bb489e0d0e26e6e71b46f23427f55aac696cd538 Mon Sep 17 00:00:00 2001
From: Gerd Flaig <gefla@gefla-mac-zrh>
Date: Fri, 2 Jan 2009 17:37:39 +0100
Subject: [PATCH] Fix special command dispatch return

---
 empire.lisp | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

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)))
-- 
2.43.0