diff --git a/.local/share/common-lisp/source/ambrevar/storage.lisp b/.local/share/common-lisp/source/ambrevar/storage.lisp
index c5f8ba48..2718664b 100644
--- a/.local/share/common-lisp/source/ambrevar/storage.lisp
+++ b/.local/share/common-lisp/source/ambrevar/storage.lisp
@@ -73,6 +73,7 @@ If DESTINATION ends with '.gpg', it gets GPG-encrypted."
      nil
      sorted-index)))
 
+(export-always 'write-roots-index)
 (defun write-roots-index (&optional (destination (personal "index")))
   "Write indexes of `roots' sub-directories to DESTINATION."
   (labels ((write-simple-index (target &rest destination-subdir)