diff --git a/cover.rkt b/cover.rkt
index 56eee3c..4645a40 100644
--- a/cover.rkt
+++ b/cover.rkt
@@ -90,7 +90,6 @@ in "coverage.rkt". This raw coverage information is converted to a usable form b
   (define to-run `(file ,modpath))
   (parameterize* ([current-cover-environment env]
                   [current-load/use-compiled (make-cover-load/use-compiled (list modpath))]
-                  [current-compile (get-compile)]
                   [current-namespace (get-namespace)])
     (eval (make-dyn-req-expr to-run))))
 
@@ -182,8 +181,8 @@ in "coverage.rkt". This raw coverage information is converted to a usable form b
 (define (clear-coverage!)
   (current-cover-environment (make-clean-cover-environment)))
 
-(define (make-clean-cover-environment)
-  (define ns (make-base-namespace))
+(define (make-clean-cover-environment [make-ns make-base-namespace])
+  (define ns (make-ns))
   (parameterize ([current-namespace ns])
     (namespace-require 'cover/coverage)
     (namespace-require 'cover/strace)
diff --git a/main.rkt b/main.rkt
index fde4e60..986b7b5 100644
--- a/main.rkt
+++ b/main.rkt
@@ -27,7 +27,7 @@
    (-> environment? (any/c boolean? . -> . compiled-expression?))]
 
   [clear-coverage! (-> any)]
-  [make-clean-cover-environment (-> environment?)]
+  [make-clean-cover-environment (->* () ((-> namespace?)) environment?)]
   [current-cover-environment (parameter/c environment?)]
 
   [get-test-coverage (->* () (environment?) coverage/c)]