diff --git a/collects/tests/drscheme/module-lang-test-utils.ss b/collects/tests/drscheme/module-lang-test-utils.ss
index 2f34ad34f8..314be3b3b5 100644
--- a/collects/tests/drscheme/module-lang-test-utils.ss
+++ b/collects/tests/drscheme/module-lang-test-utils.ss
@@ -23,7 +23,7 @@
 
 (define in-here
   (let ([here (this-expression-source-directory)])
-    (lambda (file) (format "~s" (path->string (build-path here file))))))
+    (lambda (file) (format "~s" (path->string (build-path (find-system-path 'temp-dir) file))))))
 
 (define tests '())
 (define-syntax (test stx)