diff --git a/collects/mzlib/private/sandbox-coverage.ss b/collects/scheme/private/sandbox-coverage.ss
similarity index 100%
rename from collects/mzlib/private/sandbox-coverage.ss
rename to collects/scheme/private/sandbox-coverage.ss
diff --git a/collects/scheme/sandbox.ss b/collects/scheme/sandbox.ss
index 77970426b9..c5a60462aa 100644
--- a/collects/scheme/sandbox.ss
+++ b/collects/scheme/sandbox.ss
@@ -373,7 +373,7 @@
 
 (define (evaluate-program program limits uncovered!)
   (when uncovered!
-    (eval `(,#'#%require mzlib/private/sandbox-coverage)))
+    (eval `(,#'#%require scheme/private/sandbox-coverage)))
   ;; the actual evaluation happens under specified limits, if given
   (let ([run (if (and (pair? program) (eq? 'begin (car program)))
                  (lambda () (eval* (cdr program)))