diff --git a/build-aux/make-binary-tarball.scm b/build-aux/make-binary-tarball.scm
index 0b5dbaf1dee93328952986b0d863fd4bed653578..e12bec476c19ec9ba9f9a5628d22224b522f3f1b 100644
--- a/build-aux/make-binary-tarball.scm
+++ b/build-aux/make-binary-tarball.scm
@@ -27,9 +27,6 @@
              (gnu system install)
              (ice-9 match))
 
-(define show-what-to-build*
-  (store-lift show-what-to-build))
-
 (define copy-file*
   (lift2 copy-file %store-monad))
 
diff --git a/guix/scripts/environment.scm b/guix/scripts/environment.scm
index e81532c7e4e44ae32a1b9f83fc70588cb392dc58..f403e95f3d85b1574e850472357b8ee567138aea 100644
--- a/guix/scripts/environment.scm
+++ b/guix/scripts/environment.scm
@@ -192,9 +192,6 @@ (define (transitive-inputs package)
    (append-map transitive-inputs packages)))
 
 ;; TODO: Deduplicate these.
-(define show-what-to-build*
-  (store-lift show-what-to-build))
-
 (define set-build-options-from-command-line*
   (store-lift set-build-options-from-command-line))
 
diff --git a/guix/scripts/system.scm b/guix/scripts/system.scm
index 459b2da0cc7ea3c7cf2f62fdede41b299585fd42..8d5fbe5a786b4f9364e83565b6e305d25249b03c 100644
--- a/guix/scripts/system.scm
+++ b/guix/scripts/system.scm
@@ -67,8 +67,6 @@ (define references*
   (store-lift references))
 (define topologically-sorted*
   (store-lift topologically-sorted))
-(define show-what-to-build*
-  (store-lift show-what-to-build))
 
 
 (define* (copy-item item target
diff --git a/guix/ui.scm b/guix/ui.scm
index 920355fbb57cb2afe2137c17f6c1f17a63d6697a..9bab7c51dd7d8449008260084a39a51183fca5b2 100644
--- a/guix/ui.scm
+++ b/guix/ui.scm
@@ -57,6 +57,7 @@ (define-module (guix ui)
             string->number*
             size->number
             show-what-to-build
+            show-what-to-build*
             show-manifest-transaction
             call-with-error-handling
             with-error-handling
@@ -453,6 +454,9 @@ (define (built-or-substitutable? drv)
                   (null? download) download)))
     (pair? build)))
 
+(define show-what-to-build*
+  (store-lift show-what-to-build))
+
 (define (right-arrow port)
   "Return either a string containing the 'RIGHT ARROW' character, or an ASCII
 replacement if PORT is not Unicode-capable."