diff --git a/loop.lisp b/loop.lisp
index 25c5539..f45f92a 100644
--- a/loop.lisp
+++ b/loop.lisp
@@ -159,7 +159,7 @@
   (let ((g-var (gensym)))
     `(let ((,g-var (client-group *client*)))
        (if (not ,g-var) 
-           (bad-input r "must say GROUP first")
+           (bad-input r "must say GROUP first" :code 412)
            ,@body))))
 
 (defmacro with-auth (&rest body)
@@ -917,13 +917,13 @@
                   :request r)))
 
 (defun overview-fmt-lines ()
-  '("From:"
+  '("Subject:" 
+    "From:"
     "Date:"
     "Message-ID:"
     "References:"
     "Bytes:"
-    "Lines:"
-    "Xref:full"))
+    "Lines:"))
 
 (defun build-groups-lines (ls)
   (reverse
@@ -1274,7 +1274,7 @@
                      (make-response :code 240 :request r :data "Thank you! Your article has been saved."))))
              (article-syntax-error (c)
                (make-response
-                         :code 400 :request r
+                         :code 441 :request r
                          :data (fmt "Sorry. Your article doesn't conform: ~a." c)))
              (already-seen-article (c)
                (make-response :code 441 :request r :data (fmt "~a" c))))
diff --git a/loop.nw b/loop.nw
index 171779a..9b4674c 100644
--- a/loop.nw
+++ b/loop.nw
@@ -1541,13 +1541,13 @@ the future for a moment.
                   :request r)))
 
 (defun overview-fmt-lines ()
-  '("From:"
+  '("Subject:"
+    "From:"
     "Date:"
     "Message-ID:"
     "References:"
     "Bytes:"
-    "Lines:"
-    "Xref:full"))
+    "Lines:"))
 
 (defun build-groups-lines (ls)
   (reverse
@@ -2383,7 +2383,7 @@ of trying to stop them.
                      (make-response :code 240 :request r :data "Thank you! Your article has been saved."))))
              (article-syntax-error (c)
                (make-response
-                         :code 400 :request r
+                         :code 441 :request r
                          :data (fmt "Sorry. Your article doesn't conform: ~a." c)))
              (already-seen-article (c)
                (make-response :code 441 :request r :data (fmt "~a" c))))
@@ -3573,7 +3573,7 @@ any more.
   (let ((g-var (gensym)))
     `(let ((,g-var (client-group *client*)))
        (if (not ,g-var) 
-           (bad-input r "must say GROUP first")
+           (bad-input r "must say GROUP first" :code 412)
            ,@body))))
 
 (defmacro with-auth (&rest body)
diff --git a/version.lisp b/version.lisp
index 34fca00..2ba4c1e 100644
--- a/version.lisp
+++ b/version.lisp
@@ -1,2 +1,2 @@
 (in-package :loop)
-(defparameter *git-hash* "1536193")
+(defparameter *git-hash* "b345a8d")