From ba267bc35b737cc378312cc5d6b3ead56ce87210 Mon Sep 17 00:00:00 2001
From: "Thomas M. Hermann" <thomas.m.hermann@odonata-research.com>
Date: Thu, 1 Aug 2013 10:39:24 -0500
Subject: [PATCH] Correct error in parse-body that was discarding the test
 documentation.

---
 lisp-unit.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lisp-unit.lisp b/lisp-unit.lisp
index efaae1a..85c0fa8 100644
--- a/lisp-unit.lisp
+++ b/lisp-unit.lisp
@@ -238,7 +238,7 @@ assertion.")
      ((and (stringp item) (not doc) (rest body))
       (if tag
           (values doc tag (rest body))
-          (parse-body (rest body) doc tag)))
+          (parse-body (rest body) item tag)))
      (t (values doc tag body)))))
 
 (defun test-name-error-report (test-name-error stream)
-- 
2.11.4.GIT