diff --git a/make-image.lisp.in b/make-image.lisp.in
index 78cbb7f..6c5686a 100644
--- a/make-image.lisp.in
+++ b/make-image.lisp.in
@@ -22,6 +22,14 @@
 (ccl:save-application "stumpwm" :prepend-kernel t :toplevel-function #'stumpwm:stumpwm)
 
 #+ecl
+(let ((compile-file-pathname #'compile-file-pathname))
+  (ext:package-lock :cl nil)
+  (defun compile-file-pathname (filename-base &rest more-args)
+    (cond ((pathname-host filename-base) filename-base)
+          (t (apply compile-file-pathname filename-base more-args))))
+  (ext:package-lock :cl t))
+
+#+ecl
 (asdf:make-build 'stumpwm :type :program :monolithic t
                  :move-here "."
                  :name-suffix ""
diff --git a/stumpwm.asd b/stumpwm.asd
index c98046c..4a21595 100644
--- a/stumpwm.asd
+++ b/stumpwm.asd
@@ -19,7 +19,7 @@
   ;; :license "GNU General Public License"
   :description "A tiling, keyboard driven window manager" 
   :serial t
-  :depends-on (:cl-ppcre #-(or cmu clisp) :clx #+sbcl :sb-posix)
+  :depends-on (#+ecl :asdf :cl-ppcre #-(or cmu clisp) :clx #+sbcl :sb-posix)
   :components ((:file "package")
 	       (:file "primitives")
                (:file "workarounds")