diff --git a/NEWS.md b/NEWS.md
index 7695a1f139..4047a2dda6 100644
--- a/NEWS.md
+++ b/NEWS.md
@@ -1,5 +1,8 @@
 # dplyr 0.3.1.9000
 
+* dplyr now only prints up to 20 rows (i.e. options(dplyr.print_max) is now 20).
+  #710
+
 * `rbind`ing a column full of `NA` is allowed and just collects the appropriate 
   missing value for the column type being collected (#493). 
   
diff --git a/R/zzz.r b/R/zzz.r
index 547732fa95..ce8c2f24a8 100644
--- a/R/zzz.r
+++ b/R/zzz.r
@@ -3,7 +3,7 @@
   op.dplyr <- list(
     dplyr.strict_sql = FALSE,
     dplyr.print_min = 10L,
-    dplyr.print_max = 100L
+    dplyr.print_max = 20L
   )
   toset <- !(names(op.dplyr) %in% names(op))
   if(any(toset)) options(op.dplyr[toset])