diff --git a/make-image.lisp.in b/make-image.lisp.in
index 121e9d6..2210242 100644
--- a/make-image.lisp.in
+++ b/make-image.lisp.in
@@ -2,7 +2,10 @@
 
 (load "load-stumpwm.lisp")
 
-#-ecl (stumpwm:set-module-dir "@CONTRIB_DIR@")
+(setf asdf::*immutable-systems*
+      (uiop:list-to-hash-set (asdf:already-loaded-systems)))
+
+#-ecl (stumpwm:set-module-dir "@MODULE_DIR@")
 
 #+sbcl
 (sb-ext:save-lisp-and-die "stumpwm" :toplevel (lambda ()