diff --git a/collects/scribble/eval.ss b/collects/scribble/eval.ss
index 34c67f64..5c2b193c 100644
--- a/collects/scribble/eval.ss
+++ b/collects/scribble/eval.ss
@@ -244,7 +244,8 @@
                    [sandbox-error-output 'string]
                    [sandbox-eval-limits #f]
                    [sandbox-memory-limit #f]
-                   [sandbox-make-inspector current-inspector])
+                   [sandbox-make-inspector current-inspector]
+                   [sandbox-make-code-inspector current-code-inspector])
       (make-evaluator '(begin (require scheme/base)))))
 
   (define (close-eval e)