diff --git a/guix/scripts/package.scm b/guix/scripts/package.scm
index b970c2b7b9ad6bd43c2ec52285a3600be6d40690..1d17911dc1654fe2db3421c71c95ca99763537da 100644
--- a/guix/scripts/package.scm
+++ b/guix/scripts/package.scm
@@ -520,10 +520,11 @@ (define (find-best-packages-by-name name version)
           ((_ version pkgs ...) pkgs)
           (#f '()))))
 
-  (define (find-package name)
+  (define* (find-package name #:optional (output "out"))
     ;; Find the package NAME; NAME may contain a version number and a
     ;; sub-derivation name.  If the version number is not present,
-    ;; return the preferred newest version.
+    ;; return the preferred newest version.  If the sub-derivation name is not
+    ;; present, use OUTPUT.
     (define request name)
 
     (define (ensure-output p sub-drv)
@@ -535,7 +536,7 @@ (define (ensure-output p sub-drv)
 
     (let*-values (((name sub-drv)
                    (match (string-rindex name #\:)
-                     (#f    (values name "out"))
+                     (#f    (values name output))
                      (colon (values (substring name 0 colon)
                                     (substring name (+ 1 colon))))))
                   ((name version)
@@ -687,7 +688,8 @@ (define (show-what-to-remove/install remove install dry-run?)
                                              (and (any (cut regexp-exec <> name)
                                                        upgrade-regexps)
                                                   (upgradeable? name version path)
-                                                  (find-package name)))
+                                                  (find-package name
+                                                                (or output "out"))))
                                             (_ #f))
                                            installed))))
                (install  (append