X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Frun.lisp;h=54a9020d8332d1e8048e16c2e9479dae5eb29576;hb=e7014feff8dbe5f64b13bb9741f1e716c527a395;hp=b2bbf24506dbc7512fabc6dc25b210fdb97ce0d9;hpb=287c9bb8435332a4cb5f07fd4ef08c6a76c3499f;p=fiveam.git

diff --git a/src/run.lisp b/src/run.lisp
index b2bbf24..54a9020 100644
--- a/src/run.lisp
+++ b/src/run.lisp
@@ -126,6 +126,7 @@ run."))
     (bind-run-state ((current-test test))
       (labels ((abort-test (e)
                  (add-result  'unexpected-test-failure
+                              :test-expr nil
                               :test-case test
                               :reason (format nil "Unexpected Error: ~S." e)
                               :condition e))