diff --git a/collects/errortrace/stacktrace.ss b/collects/errortrace/stacktrace.ss index 14ead1bea0..cb80920dc3 100644 --- a/collects/errortrace/stacktrace.ss +++ b/collects/errortrace/stacktrace.ss @@ -258,7 +258,7 @@ bodys)]) (rebuild expr (map cons bodys bodyl)))) - (define orig-inspector (current-inspector)) + (define orig-inspector (current-code-inspector)) (define (certify orig new) (syntax-recertify new orig orig-inspector #f))