diff --git a/compileit.lsp b/compileit.lsp
index 4185f56cc0c9f4389ae82e22670a3639e38dbf08..c68978c0cd84498fad150f54b7c41990d9d91203 100644
--- a/compileit.lsp
+++ b/compileit.lsp
@@ -29,6 +29,9 @@
 (when *load-pathname*
   (mapc #'regression-test:rem-test '(load-pathname.1 load-truename.1)))
 
+;; We could use uiop:chdir here, but what about new implementations?
+(setf *default-pathname-defaults* (truename #P"sandbox/"))
+
 (time (regression-test:do-tests))
 
 #+allegro :exit