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