bugfix: "expansion at nil" in error trace.

* eval.c (error_trace): Wrong variable was checked as basis
for selecting one of two variants of diagnostic.

1 files changed, 1 insertions, 1 deletions

diff --git a/eval.c b/eval.c
index 1c5855ae..0aa6c9a4 100644
--- a/eval.c
+++ b/eval.c
@@ -378,7 +378,7 @@ void error_trace(val exsym, val exvals, val out_stream, val prefix)
       val oinfo = source_loc_str(origin, nil);
 
       if (origin) {
-        if (info)
+        if (oinfo)
           format(out_stream, lit("~a ... an expansion at ~a of ~!~s\n"),
                  prefix, oinfo, origin, nao);
         else