   (interactive
    (let* ((module (completing-read
                    "Bump module: "
-                   (let ((modules (cons (list :core) (doom-module-list 'all))))
+                   (let ((modules (doom-module-list 'all)))
                      (mapcar (lambda (m)
                                (if (listp m)
                                    (format "%s %s" (car m) (cdr m))
                                  (format "%s" m)))
-                             (append (list ":private")
+                             (append '(:private :core)
                                      (delete-dups (mapcar #'car modules))
                                      modules)))
                    nil t nil nil))

     (list (intern (car module))
           (ignore-errors (intern (cadr module)))
           current-prefix-arg)))
  (mapc (lambda (module)
          (if-let (packages-file
                   (pcase category
                     (:private (doom-glob doom-private-dir "packages.el"))
                     (:core    (doom-glob doom-core-dir "packages.el"))
                     (_ (doom-module-locate-path category module "packages.el"))))
              (with-current-buffer
                  (or (get-file-buffer packages-file)
                      (find-file-noselect packages-file))
                (doom/bump-packages-in-buffer select)
                (save-buffer))
            (message "Module %s has no packages.el file" (cons category module))))
        (if module
            (list (cons category module))
          (cl-remove-if-not (lambda (m) (eq (car m) category))

  (interactive
   (list (completing-read "Bump package: "
                          (mapcar #'car (doom-package-list 'all)))))
  (let* ((packages (doom-package-list 'all))
         (modules (plist-get (alist-get package packages) :modules)))
    (unless modules
