diff --git a/guix/scripts/refresh.scm b/guix/scripts/refresh.scm
index 7292eabc4782f30a96ab4b2470102de95c73f352..5b0f345cde5619c2435979c1c09bcb27ccfc534e 100644
--- a/guix/scripts/refresh.scm
+++ b/guix/scripts/refresh.scm
@@ -400,7 +400,7 @@ (define (full-name package)
                    (package-version package)))
 
   (mlet %store-monad ((edges (node-back-edges %bag-node-type
-                                              (all-packages))))
+                                              (package-closure (all-packages)))))
     (let* ((dependents (node-transitive-edges packages edges))
            (covering   (filter (lambda (node)
                                  (null? (edges node)))