diff --git a/R/utils.R b/R/utils.R
index dfffc90c3..ce54e6af3 100644
--- a/R/utils.R
+++ b/R/utils.R
@@ -1419,7 +1419,7 @@ cancelOutput <- function() {
 #
 # Can be used to facilitate short-circuit eval on dots.
 dotloop <- function(fun_, ...) {
-  for (i in 1:(nargs()-1)) {
+  for (i in seq_len(nargs() - 1)) {
     fun_(eval(as.symbol(paste0("..", i))))
   }
   invisible()