From b0179e932000bf4096ecaefd8c2e20f4df33cec1 Mon Sep 17 00:00:00 2001
From: Marco Baringer <mb@bese.it>
Date: Sat, 10 Dec 2005 15:43:27 +0100
Subject: [PATCH] Initialize the test-expr slot for unexpected-error errors.

---
 src/run.lisp |    1 +
 1 file changed, 1 insertion(+)

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))
-- 
1.7.10.4