diff --git a/core/autoload/debug.el b/core/autoload/debug.el
index dc440aedc..76ac87739 100644
--- a/core/autoload/debug.el
+++ b/core/autoload/debug.el
@@ -31,3 +31,25 @@ selection of all minor-modes, active or not."
    (list (completing-read "Minor mode: "
                           (doom-active-minor-modes))))
   (describe-minor-mode-from-symbol (intern mode)))
+
+;;;###autoload
+(defun doom/am-i-secure ()
+  "Test to see if your root certificates are securely configured in emacs."
+  (declare (interactive-only t))
+  (interactive)
+  (if-let (bad-hosts
+           (loop for bad
+                 in `("https://wrong.host.badssl.com/"
+                      "https://self-signed.badssl.com/")
+                 if (condition-case e
+                        (url-retrieve bad (lambda (retrieved) t))
+                      (error nil))
+                 collect bad))
+      (error (format "tls seems to be misconfigured (it got %s)."
+                     bad-hosts))
+    (url-retrieve "https://badssl.com"
+                  (lambda (status)
+                    (if (or (not status) (plist-member status :error))
+                        (warn "Something went wrong.\n\n%s" (pp-to-string status))
+                      (message "Your trust roots are set up properly.\n\n%s" (pp-to-string status))
+                      t)))))
diff --git a/core/autoload/packages.el b/core/autoload/packages.el
index 4a1d1534e..c58a222d8 100644
--- a/core/autoload/packages.el
+++ b/core/autoload/packages.el
@@ -427,26 +427,4 @@ calls."
 FORCE-P (the universal argument) is set, ignore the cache."
   (declare (interactive-only t))
   (interactive "P")
-  (doom-refresh-packages t))
-
-;;;###autoload
-(defun doom/am-i-secure ()
-  "Test to see if your root certificates are securely configured in emacs."
-  (declare (interactive-only t))
-  (interactive)
-  (if-let (bad-hosts
-           (loop for bad
-                 in `("https://wrong.host.badssl.com/"
-                      "https://self-signed.badssl.com/")
-                 if (condition-case e
-                        (url-retrieve bad (lambda (retrieved) t))
-                      (error nil))
-                 collect bad))
-      (error (format "tls seems to be misconfigured (it got %s)."
-                     bad-hosts))
-    (url-retrieve "https://badssl.com"
-                  (lambda (status)
-                    (if (or (not status) (plist-member status :error))
-                        (warn "Something went wrong.\n\n%s" (pp-to-string status))
-                      (message "Your trust roots are set up properly.\n\n%s" (pp-to-string status))
-                      t)))))
+  (doom-refresh-packages force-p))