diff --git a/R/progress.r b/R/progress.r
index 3b892ccc..0e60213b 100644
--- a/R/progress.r
+++ b/R/progress.r
@@ -119,7 +119,7 @@ progress_text <- function(style = 3, ...) {
 #' l_ply(1:100, identity, .progress = progress_tk(label=""))
 #' }
 progress_tk <- function(title = "plyr progress", label = "Working...", ...) {
-  stopifnot(require("tcltk", quiet=TRUE))
+  stopifnot(require("tcltk", quietly = TRUE))
   n <- 0
   tk <- NULL
 
diff --git a/R/summarise.r b/R/summarise.r
index f80e3847..a4091483 100644
--- a/R/summarise.r
+++ b/R/summarise.r
@@ -32,7 +32,7 @@ summarise <- function(.data, ...) {
     missing_names <- names(cols) == ""
   }
   if (any(missing_names)) {
-    names <- unname(unlist(lapply(match.call(expand = FALSE)$`...`, deparse)))
+    names <- unname(unlist(lapply(match.call(expand.dots = FALSE)$`...`, deparse)))
     names(cols)[missing_names] <- names[missing_names]
   }
   .data <- as.list(.data)