diff --git a/doit.lsp b/doit.lsp
index c3be0b96f5643a87caf624de47166b1d58019762..8a982e273c12a73197d2bc0313645eb0aa3ed12a 100644
--- a/doit.lsp
+++ b/doit.lsp
@@ -6,6 +6,11 @@
 
 #+allegro (setq *enclose-printer-errors* nil)
 
+(let ((wd (or *compile-file-pathname* *load-pathname*)))
+  (when wd
+    (setf *default-pathname-defaults*
+          (make-pathname :name nil :type nil :version nil :defaults wd))))
+
 ;;; Remove compiled files
 (let* ((fn (compile-file-pathname "doit.lsp"))
        (type (pathname-type fn))