diff --git a/guix/store.scm b/guix/store.scm
index 1731c14f2704cd4a3dc86e429f7b08e146badf52..073e024e38e1a411d864f1656673a0acc5d59fd8 100644
--- a/guix/store.scm
+++ b/guix/store.scm
@@ -797,10 +797,10 @@ (define ordered
               (loop tail)))))))
 
 (define* (register-path path
-                        #:key (references '()) deriver store)
+                        #:key (references '()) deriver prefix)
   "Register PATH as a valid store file, with REFERENCES as its list of
-references, and DERIVER as its deriver (.drv that led to it.)  If STORE is not
-#f, it must be a string denoting the directory name of the new store to
+references, and DERIVER as its deriver (.drv that led to it.)  If PREFIX is
+not #f, it must be the name of the directory containing the new store to
 initialize.  Return #t on success.
 
 Use with care as it directly modifies the store!  This is primarily meant to
@@ -809,8 +809,8 @@ (define* (register-path path
   (catch 'system-error
     (lambda ()
       (let ((pipe (apply open-pipe* OPEN_WRITE %guix-register-program
-                         (if store
-                             `("--prefix" ,store)
+                         (if prefix
+                             `("--prefix" ,prefix)
                              '()))))
         (and pipe
              (begin