From aa11fad48e5edb700413892e2a41d0e8fe959e6b Mon Sep 17 00:00:00 2001
From: Russ Tyndall <russ@acceleration.net>
Date: Wed, 4 May 2011 11:09:50 -0400
Subject: [PATCH] fixed a bug in check-edit-response where it would never find
 success

---
 src/edit.lisp | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/edit.lisp b/src/edit.lisp
index 7e1578d..09bde35 100644
--- a/src/edit.lisp
+++ b/src/edit.lisp
@@ -5,7 +5,8 @@
    signals match-errors assertion-errors and media-wiki-errors
   "
   (check-sxml-for-error xml)
-  (let* ((kid (find-nodes-by-name "edit" xml))
+  (let* ((kid (first
+	       (find-nodes-by-name "edit" xml)))
 	 (alist (second kid)))
     (unless alist
       (error 'media-wiki-error
-- 
2.11.4.GIT