diff --git a/Makefile b/Makefile
index 0c84d22e017a2993772f70544fc61f92446e3622..1c0fc232d5b160b727d4b7f1874ed04e9a5b7896 100644
--- a/Makefile
+++ b/Makefile
@@ -85,6 +85,7 @@ push:
 	git status
 
 debian-package-all:
+	./release.lisp debian-package-all
 
 quickrelease: reinstall_here
 	./release.lisp quickrelease
diff --git a/cl-launch.sh b/cl-launch.sh
index a2d170be967a362231a2d5cbbbeff4d444acefb1..4dec47c3be2c2e133e33e5c94f0bb78d6a61cf86 100755
--- a/cl-launch.sh
+++ b/cl-launch.sh
@@ -1,6 +1,6 @@
 #!/bin/sh
 #| cl-launch.sh -- shell wrapper generator for Common Lisp software -*- Lisp -*-
-CL_LAUNCH_VERSION='4.0.0.5'
+CL_LAUNCH_VERSION='4.0.1'
 license_information () {
 AUTHOR_NOTE="\
 # Please send your improvements to the author:
diff --git a/debian/changelog b/debian/changelog
index 76748056d227883b382537f3c00957bca5e27b72..5ad371659814ea18b3f2c3b172d0169ced167994 100644
--- a/debian/changelog
+++ b/debian/changelog
@@ -1,3 +1,13 @@
+cl-launch (4.0.1-1) unstable; urgency=low
+
+  * Speed up startup time by not upgrading ASDF unless needed.
+  * Fix 4.0.0 bugs: support old implementations with older ASDF;
+    unbreak working from cl-launch dumped image.
+  * Add alias -E for --entry.
+  * Eat our own dogfood with a CL release script.
+
+ -- Francois-Rene Rideau <fare@tunes.org>  Mon, 28 Feb 2014 17:15:26 -0500
+
 cl-launch (4.0.0-1) unstable; urgency=low
 
   * Build with --eval --require --file --system in order of appearance.
diff --git a/release.lisp b/release.lisp
index 65f21c0e14a324abaab9d123f0534c7903f8de56..82f2313f6a52b7df1facea65d9e3a76c6adab29e 100755
--- a/release.lisp
+++ b/release.lisp
@@ -61,8 +61,8 @@ exec "$(dirname $0)/cl-launch.sh" \
          (cl-launch-tag (strcat "cl-launch-" tag))
          (cldir (subpathname home "files/cl-launch/")))
     (debian-package)
-    (run `(./cl-launch.sh --include "." -B install_path))
-    (run `(./cl-launch.sh --no-include -o cl-launch -B install_bin))
+    (run `(./cl-launch.sh --include "." "-B" install_path))
+    (run `(./cl-launch.sh --no-include -o cl-launch "-B" install_bin))
     (with-current-directory (up)
       (run `(rm -f ,cl-launch-tag))
       (run `(ln -s cl-launch ,cl-launch-tag))