diff --git a/tools/build.lisp b/tools/build.lisp
index 0dc396825a040fa41ad2815b14b9ae12a14f0b0a..df0023dbf1ee7618d0eff4ce70430650ccffd1ec 100644
--- a/tools/build.lisp
+++ b/tools/build.lisp
@@ -25,3 +25,27 @@
     (terpri)
     (run `(pipe (wc header.lisp ,@(driver-files) ,@(asdf-defsystem-files)) (tail -n 1)))))
 
+
+;;; BONUS: install asdf as module for your favorite Lisp implementation.
+(deftestcmd install-asdf (lisp)
+  "install asdf as a module on specified Lisp"
+  (flet ((doit ()
+           (with-asdf-dir ()
+             (run-test-lisp
+              (format nil "installing ASDF to be provided as a module on ~(~A~)" lisp)
+              '((load "tools/install-asdf.lisp")(uiop:quit))
+              :lisp lisp))))
+    (case lisp
+      ((:allegro :allegromodern :ccl :clisp :cmucl :lispworks :sbcl :scl :xcl)
+       (doit))
+      ((:abcl :ecl :ecl_bytecodes :mkcl)
+       (format t "Upgrading the implementation-provided ASDF on ~(~A~) isn't supported (yet).
+Happily, that implementation is known to keep ASDF reasonably up to date.~%" lisp))
+      ((:cormancl :gcl :genera :mcl :mocl)
+       (format t "Installing ASDF so it is provided by ~(~A~) isn't supported.
+If you care, go hack the implementation.~%" lisp))
+      (otherwise
+       (if (string-prefix-p "allegro" (string-downcase lisp))
+           (doit)
+           (error "Unknown implementation ~(~A~)" lisp))))))
+
diff --git a/tools/install-asdf.lisp b/tools/install-asdf.lisp
index 49bd8fcab94dc67376b0a0049c3718e22e5c1266..9d500f11c6098006e5f53b0753b5a6d00cbeceb8 100644
--- a/tools/install-asdf.lisp
+++ b/tools/install-asdf.lisp
@@ -1,6 +1,6 @@
 ":" ; exec cl-launch "$0" "$@" # -*- Lisp -*-
 #|
-Usage: ./tools/asdf-tools install-asdf-as-module l=lispworks
+Usage: ./tools/asdf-tools install-asdf l=lispworks
 
 This script will install the current version of ASDF
 as a module pre-compiled for your implementation,
diff --git a/tools/test-basic.lisp b/tools/test-basic.lisp
index f86f788af6c9e2049a392bbae7d822336e7b7c8a..62722214860e1b5f940b76d29f7e261db1abbb9e 100644
--- a/tools/test-basic.lisp
+++ b/tools/test-basic.lisp
@@ -54,29 +54,6 @@ Use your preferred lisp implementation and check that asdf is loaded without any
            (log! log "BAD: Loading ASDF on ~(~A~) produces messages" lisp)
            (return nil))))))
 
-;;; BONUS: install asdf as module for your favorite Lisp implementation.
-(deftestcmd install-asdf (lisp)
-  "install asdf as a module on specified Lisp"
-  (flet ((doit ()
-           (with-asdf-dir ()
-             (run-test-lisp
-              (format nil "installing ASDF to be provided as a module on ~(~A~)" lisp)
-              '((load "tools/install-asdf.lisp")(uiop:quit))
-              :lisp lisp))))
-    (case lisp
-      ((:allegro :allegromodern :ccl :clisp :cmucl :lispworks :sbcl :scl :xcl)
-       (doit))
-      ((:abcl :ecl :ecl_bytecodes :mkcl)
-       (format t "Upgrading the implementation-provided ASDF on ~(~A~) isn't supported (yet).
-Happily, that implementation is known to keep ASDF reasonably up to date.~%" lisp))
-      ((:cormancl :gcl :genera :mcl :mocl)
-       (format t "Installing ASDF so it is provided by ~(~A~) isn't supported.
-If you care, go hack the implementation.~%" lisp))
-      (otherwise
-       (if (string-prefix-p "allegro" (string-downcase lisp))
-           (doit)
-           (error "Unknown implementation ~(~A~)" lisp))))))
-
 (deftestcmd test-basic (lisp systems)
   "basic test: doc, clean-load, load-systems"
   (doc)