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