diff --git a/guix/scripts/perform-download.scm b/guix/scripts/perform-download.scm
index 4c1034beaf..389a86ce91 100644
--- a/guix/scripts/perform-download.scm
+++ b/guix/scripts/perform-download.scm
@@ -78,11 +78,6 @@
 (define %sandbox-module
   (make-sandbox-module %safe-bindings))
 
-(define* (read/safe #:optional (port (current-input-port)))
-  (with-fluids ((read-eval? #f))
-    (parameterize ((read-hash-procedures '()))
-      (read port))))
-
 (define (eval-content-addressed-mirrors content-addressed-mirrors file algo hash)
   "Evaluate the expression CONTENT-ADDRESSED-MIRRORS in a sandbox, and produce
 a list of wrapper procedures for safely calling the list of procedures that
diff --git a/guix/ui.scm b/guix/ui.scm
index 068071d3fd..e6829bd4d6 100644
--- a/guix/ui.scm
+++ b/guix/ui.scm
@@ -96,6 +96,7 @@
                guix-warning-port program-name)
   #:export (display-hint
             make-user-module
+            read/safe
             load*
             warn-about-load-error
             show-version-and-exit