X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fexplain.lisp;h=84d68717cd1dfe377a7b636253a85f9beba6d13f;hb=1669d195edc882c5dec846ab36a82881c6055c72;hp=b3bf2c3be86ad5c68f72498e00222ca6a6bc9ea4;hpb=9adc37ba6fbe512af2c83863e9f51461479678ed;p=fiveam.git

diff --git a/src/explain.lisp b/src/explain.lisp
index b3bf2c3..84d6871 100644
--- a/src/explain.lisp
+++ b/src/explain.lisp
@@ -38,7 +38,7 @@
       (terpri stream)
       (when failed
         (output "Failure Details:~%")
-        (dolist (f failed)
+        (dolist (f (reverse failed))
           (output "--------------------------------~%")
           (output "~A ~@{[~A]~}: ~%" 
                   (name (test-case f))