diff --git a/R/key.R b/R/key.R
index b07d895d..d9232c2d 100644
--- a/R/key.R
+++ b/R/key.R
@@ -15,7 +15,7 @@
 #'   length one.
 #' @export
 sc_key <- function(server = "ext", test = FALSE) {
-  if (!sc_key_exists(server)) {
+  if (!sc_key_exists(server = server)) {
     if (interactive())
       sc_key_prompt(server, test)
     else