Use subtype check for eval error.

* eval.c (error_trace): Don't check exsym for exact equality
to eval-error, but whether it is a subtype.

1 files changed, 1 insertions, 1 deletions

diff --git a/eval.c b/eval.c
index a63f369b..e92c5845 100644
--- a/eval.c
+++ b/eval.c
@@ -239,7 +239,7 @@ void error_trace(val exsym, val exvals, val out_stream, val prefix)
   else
     format(out_stream, lit("~a ~!~a\n"), prefix, car(exvals), nao);
 
-  if (info && exsym != eval_error_s) {
+  if (info && !uw_exception_subtype_p(exsym, eval_error_s)) {
     val first, origin, oinfo;
 
     for (first = t; last; last = origin, info = oinfo, first = nil) {