diff --git a/tools/build.lisp b/tools/build.lisp
index bef8786bf7f65a849e53f4b1140b55cdd92d9355..7378349e8ca12ec19e2f712f3e410beb78cc0b81 100644
--- a/tools/build.lisp
+++ b/tools/build.lisp
@@ -21,13 +21,13 @@
   "count lines of lisp code in asdf and uiop"
   (with-asdf-dir ()
     (flet ((lisp-only (x) (remove "lisp" x :test-not 'equal :key 'pathname-type)))
-      (let ((driver-files (mapcar #'(lambda (x) (subpathname "uiop/" x)) (lisp-only (uiop-files))))
+      (let ((uiop-files (mapcar #'(lambda (x) (subpathname "uiop/" x)) (lisp-only (uiop-files))))
             (defsystem-files (lisp-only (asdf-defsystem-files))))
-        (run* `(pipe (wc ,@driver-files) (sort -n)))
+        (run* `(pipe (wc ,@uiop-files) (sort -n)))
         (terpri)
         (run* `(pipe (wc header.lisp ,@defsystem-files) (sort -n)))
         (terpri)
-        (run* `(pipe (wc header.lisp ,@driver-files ,@defsystem-files) (tail -n 1)))))))
+        (run* `(pipe (wc header.lisp ,@uiop-files ,@defsystem-files) (tail -n 1)))))))
 
 
 ;;; debug the source registry that is being used to execute these tools.